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THREE ONE-DIMENSIONAL STRUCTURAL 
HEATING PROGRAMS 

L. D: Wing 

Sounding Rocket Division 

ABSTRACT 

This document descnbes two digital-computer programs for cal- 
culating the temperature histories of each element in a 10-element struc- 
ture consisting of up to ten materials A third program, tailored to the 
specific calculation of a mean payload box temperature for an item placed 
in an orbiting vehicle cargo bay, uses the same-basic analytical techmque 
but IS more approximate in nature The thermal energy balance is based 
upon one-dimensional heat transfer. The programs use as input, the con- 
ductivity coefficients and specific heats of the materials either as single- 
valued or as linearly varying-with-temperature variables. In the first two 
programs, cold wall, hot wall or net heat mto the outer surface can be en- 
tered and correction capability from cold to hot wall values is provided The 
first program, NQLDWl 12, postulates a non-ablatmg surface matenal, while 
NQLDWl 17 allows for surface recession by usmg as input data either the reces- 
sion rate (ft/sec) or the “effective heat of ablation” (Btu/lbm) as functions of 
the rate of heat transfer to the wall The third program, NQLDW040, uses an 
idealized structure payload box located within an orbiting vehicle cargo bay 
by position angles to mfer a mean temperature value mcludmg the effects of 
energy produced withm the box, solar radiation, Earth albedo. Earth radiation 
and averaged radiation from other items of payload within the orbiting vehicle 
cargo bay. 
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PREFACE 


This report contains detailed descnptions and utilization information for two similar 
one-dimensional structural heating programs and a specialized payload box mean tempera- 
ture history program for orbiting vehicle cargo bay items. The programs are presented in 
three sections 

SECTION 1 — NQLDWl 12, the non-ablating surface, one-dimensional 
structural heating program 

SECTION 2 — NQLDWl 17, the ablating surface, one-dimensional 
structural heating program 

SECTION 3 — NQLDW040, the orbiting vehicle cargo bay box mean 
temperature history program. 

The similarity of the programs of Sections 1 and 2 and the fact that the program of 
Section 3 is based upon a similar theoretical approach has resulted in the decision to com- 
bine the three separate program wnte-ups into this single report. Functionally, of course, 
the three programs are totally independent of each other 

NQLDWl 12 and NQLDWl 17 are updated versions of two one-dimensional structural 
heating programs reported in Reference A, NQLDW040 nas not been previously reported. 
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SYMBOLS 


A _ . cross sectional area of element (normal to gath of heat flow) (ft?_) .. 

C = refers to conductive heat transfer 
Cp = material specific heat (Btu/lbm°R) 

a 

H = heat transfer coefficient defined by H = r- — 3 — ^ (Ibm/ft^'sec) 

^rec “ “w 

h = enthalpy (Btu/lbm) 

k = material coefficient of thermal conductivity (Btu/ft sec“R) 
q = quantity of heat (Btu) 
q = heat transfer rate (Btu/ft^ sec) 

fiaeio ~ boundary layer-to-wall heat transfer rate (aerodynamic heating) (Btu/ft^ sec) 
= heat conducted from element i to element j m time DELTIM (Btu) 
qin = dotal heat which passes into the external element (1) from any source in time 
DELTIM (Btu) 

qSj = change in heat stored in element i dunng time DELTIM (Btu) 

/ 

RAD = refers to radiant heat 
S = refers to stored heat 

T = temperature (°R unless otherwise noted) 
t = time (sec) 

V = element volume (ft^) 

X = linear distance (ft) 

e = surface emissivity 

a = Stephan-Boltzmann constant (= 0 4805 x Btu/ft^ sec°R^) 

P = matenal density (Ibm/ft^) 
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SUBSCRIPTS 


a = actual element (true element dimensions) 
cw = cold-wall condition - 80'’F) 

e = cubic element dimensions assumed 
hw = hot-wall condition (at acutal wall temperature) 

Rec = at recovery enthalpy and local pressure 
w = refers to wall condition or properties 

o If no radiation inward from element 10 is desired, use only EP2 = EPS = 0 in the 
input. 

o Reduced or actual geometry values are input to the element geometry cards (types 
14 through 19) when UK = 1 (NQLDWl 12), or at all times for NQLDWl 17. Use reduced 
areas m mput whenever they exist; otherwise, mput the actual element areas. Whenever 
reduced areas are used, the corresponding element AREFi must be input as the apphcable 
ratio of [A actual/A reduced] . If no reduced areas are used for any elements, then the 
AREFi values for those elements are entered as ‘T .” The following definitions are helpful 
in setting up a varymg-element-size problem* 

A reduced = 

A = Aa (i) 

ARef(i) A reduced (i) 
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GENERAL SYMBOLS FOR NQLDWl 12 


AAl, AA2, . AAIO = the reduced area (if used)" or the actual area (if no reduced area 
is used for that element) of elements 1,2, . 10 (ft^ ) 

AE, BE = coefficients in the element one surface emisslvity versus temperature equation 
' (17),q.v 

AREF1,AREF2, . . AREFIO = the ratios of real to reduced element area for each 
element (must be entered as “1 ” when no reduced area is used for that element) 
CPA, CPB, . . CPJ = Specific heat of materials of elements 1,2,. 10 used m the 
equations. 

CPI =CPA + (V1)T 

CP2 = CPB + (V2) T etc. (Btu/lbm°R) 

CPIN = specific heat of plate to which element 10 radiates (Btu/ibm°R) 

DELTIM = the size of the calculation time step when constant for entire problem (sec) 
DELTM (i) = the size of the calculation time step when variable within one problem 
(sec) 

DELX = the cubic element thickness (if UK = 0) or the smallest element dimension 
in the heat flow direction (if I JK = 1 ) 

EMIO = element one surface emissmty (see Eq. \,1) 

EP2 = emissmty of mner (emitting) surface of element ten 

EPS = emissmty and absorptivity of surface to which element 10 is radiatmg 

HREC (i) = average boundary-layer recovery enthalpy at time i (Btu/lbm) 

IHW = a counter, = 0 for cold wall heat rate input (T^ =« 80°F), = 1 for hot wall heat 
mput (surface emissmty of element 1 is input as zero) 
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UK = a counter, = 0 for problem consisting of ten geometrically identical elements 

N 

(though matenals may vary from element to element), = 1 for problem in which varying- 
element geometries are to be input (NQLDWl 12 ONLY) 

J = the number of calculation steps 

KJK = a counter; = 0 for final element temperatures pnnted out in °F , = 1 for pnntout in 
°R 

KK6 = number of calculations per printout (temperature data is printed out every “KK6 x 
DELTIM” seconds) 

QAHW = average (over DELTIM) hot-wall heat rate into element one (Btu/ft^ sec) 

QDOTT (i) = the cold wall convective heat rate at time i (Btu/ft^ sec) 

QRADINTERNAL ~ radiative heat rate from element ten to the internal structure of the 
vehicle (Btu/ft^ sec) 

QRADD (i) = radiative heat rate to element one (Btu/ft^ sec) 

QROUT = radiative heat rate to space from outer surface of element one (Btu/ft^ sec) 
RHOIN = density of the plate to which element ten radiates (Ibm/ft^) 

RHOl, RH02, . , RHOlO = densities of the materials of elements one through ten, re- 
spectively (Ibm/ft^) 

TAUIN = thickness of the plate to which element ten radiates (ft) 

Til, T2i, TlOi = mitial temperatures of elements 1, 2, . 10 (°R) 

TIE, T2F, . TlOF = final temperatures of elements 1 , 2, 10(°For°R) 

TIMO = problem start time (sec) 

TINNERi = initial temperature of surface to which element ten radiates (°R) 

TINNERf = end of time step temperature of plate to which element ten radiates (°R) 
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Ul, U2, UlO = constants in the thermal conductivity equations (see item “XKA”) 

VI, V2, . VIO = constants in the specific heat equations (see Item “CPA”) 

XAr,*XA2,’ . , . XA10”=~’tHe actual elemeurdepths' (in directi'oTi"of'heat flow' )"(ft) 
XKA, XKB, - XKJ = thermal conductivity of materials of elements 1,2, . . . 10, 
used in the equations 

XKl = XKA + (U1)T 
( 

XK2 = XKB + (U2)T etc. (Btu/ft sec°R) 
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PARTICULAR SYMBOLS FOR NQLDWl 17 


The following symbols either do not occur in NQLDWlill or are defined differently 
in the two programs. This hst supphes the correct definitions for NQLDWl 17. Symbols 
not m this list appear in the preceding (NQLDWl 12) symbol hst 

ABLTM - the input temperature at which element one matenal begins to ablate or sub- 
lime (°R) 

DX (i) = surface recession rate (a function of QDOTT (i)) (ft/sec) 

UK = a counter; = 0 if recession rate (DX (i); ft/sec) is input as a function of QDOTT (i); 

= 1 if effective heat of ablation (QSTAR, Btu/lbm) is input as a function of QDOTT 
(i). NOTE: In NQLDWl 17, the UK as defined m NQLDWl 12 is always = 1 
NPTS = number of pairs of DX (i) or QSTAR (i) versus QDOTT (i) points mput 
QDOTT (i) = hot wall heat rate (Btu/ft^ sec) 

QSTAR (i) = effective heat of ablation (a function of QDOTT (i)) (Btu/lbm) 

PARTICULAR SYMBOLS FOR NQLDW040 

AAA, AAB, . . AAF = (respectively) the surface areas of payload box sides A, B, . . . F 

(ft2) 

ALPHA = the absorptivity of surface “E” in the solar energy band 
2A = Payload box total external surface area (ft^) 

FIN = integrated view factor for payload box emission of radiant energy into the Shuttle 
bay 

FOUT = integrated view factor for payload box emission of radiant energy out of the 
Shuttle bay 
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P (i) = mtemally produced power (Btu/sec) 

QDOTTO) = internally produced heat rate that enters element one (see equation 38) (Btu/ 
sec) 

THij = the payload box position angles (Figure 3-1) (degrees) 

TIN = the Shuttle bay mean temperature (°R) 

TOUT = the temperature to which the bay is radiating (''R) (e.g. space = 0°Rj Earth = 

5 10°R, Sun = 0°R (sees deep space)) 

TSRCE = the temperature of non-Shuttle-bome heat source that radiates to the payload 
box top (area AAE) (°R) 

T’ = the average temperature to which the payload box radiates using parallel plate radi- 
ation (calculated by the program) (°R) 

V = volume of payload box (ft^) 

W = weight of payload box and contents (Ibm) 

WTIME(i), DELTM(i) = time and calculation interval pairs (sec, sec) 

XMEAN = the mean effective conductive distance within the payload box (see Figure 3-2) 
(ft) 


a = surface absorptivity 

e2 = the effective mean emissivity of all six faces of the payload box = ^ 


S AA(i) 

e3 = eBay = the mean emissivity of the bay liner and other payload items within the bay 
(input value) 

= effective density of fictitious box matenal “M” (see equation 36) (Ibm/ft^) 
or PSI = the angle between the normal to face E and the incommg solar ray (degrees) 
Important When sun does not “see” bay, enter ^ =0. (Not 90°) 
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THREE-ONE-DIMENSIONAL STRUCTURAL HEATING PROGRAMS 

SECTION 1 

NQLDWl 12, THE NON-ABLATING PROGRAM 


1.1 INTRODUCTION 

This digital computer program calculates the temperature histones of each element in 
a ten-element structural configuration The thermal energy transfer must be one-dimen- 
sional. While as many as.ten materials of construction may be considered, the surface element 
cannot decompose or recede in any manner Output includes q hot-wall and the final (end- 
of-time-step) element temperatures as functions of time 

NQLDWl 12 is designed to yield (in closed form) the time-temperature histones of 
any heat-sustaimng (no ablation or subhmation of the surface) structure which is amen- 
able to the assumption of one-dimensional heat flow and which is subjected to a known 
aerodynamic and/or radiative heating environment on one (external) surface Figures 1-1 
and 1-2 show some typical structural arrangements, though other possibihties exist The 
program can handle as many as ten materials, each element representing a different mater- 
lal. The specific heats and thermal conductivities of the element materials can be input as 
constants at arbitrary temperature or as hnear variables with temperature, in which case the 
base values are given at some fixed temperature (e g T = 540° R) The structure inner-sur- 
face emissivities EP2 and EPS are single-valued but the external surface emissivity of element 

i 

one can be input as a constant, a first-order or a second-order vanable with temperature. 

This limitation on EP2 and EPS is not unduly restrictive because the effect of temperature 
(at the magnitudes dictated by material capability well inside the structure’s exposed sur- 
face) IS neghgible compared to the variation caused by surface conditions such as roughness. 



degree of oxidation, etc. The program accounts for both radiation away from the exposed 
surface of element one (to space) and that mto the structure from the exposed (inner) sur- 
face of element ten. The mner structure to which the element ten exposed surface radiates 
can be given an analogous flat plate density, specific heat and thickness such that the appro- 
priate temperature of the inner structure can be calculated. An isothermal inner structure 
can be simulated by inputting very large values of these parameters 

1.2 THEORY 

The theory programmed into NQLDWl 12 is extremely simple though somewhat 
tedious. Figure 1-1 shows the basic arrangement of the elements. Figure 1-1 also indicates 
on the sketch the heat transfer and heat storage terms considered. The heat balance equa- 
tions are 


qIN = qC12 + qSi +qRAD 

(lA) 

qC12 = qC23 +qS2 

(IB) 

qC23 = qC34 + qS3 

(1C) 

qC34 = qC45 + qS4 

(ID) 

qC45 = qC56 + qS5 

(IE) 

qC5 6 = qC67 + qS6 

(IF) 

qC67 = qC78 + qS7 

(IG) 

qC78 = qC89 + qS8 

(IH) 

qC89 = qC910 + qS9 

(11) 

qC910 = qslO + q2ROUT 

(IJ) 


These equations use the following defimtions 
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Energy radiated from the external surface is 


qROUT = ea (TX)4 AX^ At (Btu) 


( 2 ) 


where 


for the first iteration, then 


for successive iterations until 


TX = Tli 


TX= (Tli+TlF)/2 


TX-(Th + TlF) 
2 

TX 


<0 001 


(3) 


The value of TX is then accepted and all TF values for the first item step are calculated The 
heat passing into the structure from the boundary layer is 

qIN= 

where q = the cold wall convective heat rate * 

(Tw = 80“F = 540°R) 

The heat stored is defined by : 

qS = (Cp) (p) (AX)3 (TIF - Til) (Btu) (5) 

where 

Cp= Cpi +Cp(-j+ J-) 

2 


The conducted heat is defined by: 

_ k(J)X(J) + k(J + l)X(J + l) 
X(J) + X(J + 1) 


qc^ 


(AX) (AT) 


Th + TIF T21 + T2F 


(Btu) (6) 


2 2 

Note that subscript i refers to time and J to element number. Heat radiated inward from the 
inner surface of element 10 is. 
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qRADINTERNAL=EP23 (0.4805 x 10“12) 


[(T10i) 4 - (TINNER)4] (AX)^ (AT) (Btu) (7) 


where 


EP23= [ 


1 

EP2 


1 

EP3 



( 8 ) 


Because the matenals of any element may differ from those of the next successive 
element, the thermal conductivities, densities and specific heats are all evaluated as the 
numerically averaged values for time i and i + 1, weighted by appropnate element thick- > 
nesses A slight degree of conservatism results from treating T1 as though it were a sur- 
face temperature in effect ignonng the outer half of element one with respect to thermal 
resistance. This treatment produces temperature profiles very slightly higher than would 
actually exist. The assumption that no heat exits through the element sides (umdimensional- 
flow assumption) may result m an additional degree of conservatism. The overall conser- 
vatism cannot he defined simply since it will vary appreciably with the magnitude of qin, 
the element size, the general level of Cp, k and p and the size of the time step Since con- 
servation temperature results tend to DECREASE the hot-wall convective heat input, some 
of the descnbed conservatism is lost and the indicated temperature values will not vary 
greatly from the correct theoretical values 


The cold-wall convective heat mput, q cw, is corrected to a hot-wall value by the 
following relation 

%w 'icw (9) 

Ujrec ■‘‘cw 

NOTE that this correction equation is only approximate and should (more correctly) read: 


Hh 


^hw ficw '-Tj J I- u 


hec ^hw 


H, 


cw 


^rec “ ^cw 


( 10 ) 
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Equation (1 0) is not used because of the complexity (a lengthy iterative process) of defining 
the ratio of the heat transfer coefficients Since inclusion of this ratio (use of 

Equation (10) rather than Equation (9)) would result in a slightly decreased heat input to the 
structure, the program results are again slightly conservative but, as before, the conservatism 
IS decreased by the interplay between the assumed surface temperature and the forcing 
function for the convective heat transfer Moreover, the net effect of the conservative 
assumption is small 

In order to accomodate the smallest possible values of the time step DELTIM, the pro- 
gram IS wntten in double precision mode, thus, the time step may in the interest of greatest 
accuracy be quite small The smallest DELTIM (or DELTM(i)) that can conveniently be 
used results m the greatest accuracy. 

In NQLDWl 12, a single value of DELTIM can be entered (NPTS4 = 0) or up to ten 
DELTM (i) values can be input such that the calculation step interval can change at nine 
different times in any one problem. For example, if NPTS4 =10, then DELTM(i) can be 
given the value-of one second for the first 100 seconds of the problem Then, at 100 seconds, 
the calculation time changes to 2 seconds At 200 seconds, it is changed to 1 second again 
This sequence can contmue until a total of ten time step values have been used The times 
and time steps for multiple cases are input as WTIME(i), DBLTM(i) 

The program is set up to consider ten geometncally identical cubic elements that might 

/ 

logically define conditions for an mfinite flat slab made up of ten lammated layers of various 
materials and subjected to a uniform heat pulse over the exposed surface Such an arrange- 
ment IS not always amenable to realistic structural configurations To enable the program to 
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handle elements of arbitrary cross-sectional area (normal to heat flow) and element depths 
(in the direction of heat flow), it is necessary to calculate an effective density and coeffici- 
ent of thermal conductivity and an effective heat input (radiative and convective) that will 
yield a proper solution to the heat balance equations using the cubic elements (all the same 
size) asset up in the base program. This calculation is made possible by using the following 
methods 

9 To correct the conducted heat through each element, let sub a = the actual 
element property and sub e = the property of the cubic element in the pro- 
gram To assure that the heat conducted through the program’s cubic 
element will equal that of the actual element, qC^ = qCg, or 

A j AT At _ kg Ag AT At n l "i 

Xa x; 

from which 

At Xg 

ke = ka[-^^^] (12) 

® To correct the stored heat in each element qS^ = qSg or 

Cpa Va Pa = Cpg Vg Pg AT (13 ) 

from which 

CPe = Cpa [^] [A] (14) 

Pe 

Then, letting the specific heat remain the true material value because Cp may vary linearly 
with temperature in the program, one obtains 

A=^orPe-P.t^I (15) 

© Correction for the real element convective and radiative heat into and 
radiative heat out of the surface element is made in the program by 
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muitiplying the QAHW (hot wall heat rate into element one) by AAi/XAi 
A similar correction is made for radiation inward from the inner surface of 
element ten. 

Equations 9 and 10 have been programmed mto NQLDW112. 

I 

An additional capability has been added in the form of an option that permits the pro- 
gram to bypass the cold-to-hot-wall correction for the heat inputs Normally, the program 
uses cold wall heat rates as input because the wall temperature history is unknown in advance 
of running NQLDWl 12. The program then corrects (approximately) these cold -wall values 
to hot-waU values that depend upon the actual (iterated) wall temperature. However, if 
hot-waU heat rates (as derived from expenment in a radiant-heat facihty) are available, it 
IS clear that the attempt of the program to convert these hot-wall heat rates by the enthalpy 
ratio would be meaningless. Thus, if the counter lETW is set to unity, NQLDWl 12 bypasses 
the hot-wali heat rate correction and uses the input values as the hot-wall values. 

Note, however, that the heat input (when IHW =1) MUST be entered as QRADD(i) 
(NOT as QDOTT(i)) if net radiant heat input is considered, because this heat as measured by 
a temperature.history and then calculated to a q history is the NET heat exchange to the 
wall Moreover, when the counter IHW is set equal to 1, the surface emissivity of element 
one is set equal to zero, so no radiation outward from the heated surface occurs. The heat- 
in IS the effective net heat exchanged, as would result from converting a radiant-heat facil- 
ity temperature history to a heat rate history. 

1.3 INPUT 

Figure 1-3 illustrates the method of inputtmg data to NQLDWl 12 and defines the 
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input terms All mput except for the title, J (on card 2), UK, IHW and KJK (on card 12) 
and NPTSl , NPTS2, NPTS3, NPTS4 and KK6 (on card 13) is in floating-point (the decimal 
pomt must be given). Each problem consists of 13 (if UK = 0) or 19 (if KJK =1) cards plus 
the QDOTT(i), QRADD(i), HRECC(i) and DELTM(i) cards. Problems may be stacked in 
any number, but all cards are required for every problem Whenever the conductivity and 
specific heats of the element matenals are to be input as constants (v/ith temperature), all 
U(i) and V(i) terms are entered as zero Note that, when linearly varying values of specific 
heat and thermal conductivity are to be entered, CPA through CPJ and XKA through XKJ 
must be given some base value (e.g Twall = 540°R). However, if single values of these pro- 
perties are entered, they are input at any arbitrary temperature that appears to be a suitable 
average value over the anticipated structural temperature range. 

TIMO is the arbitrary initial time which may be given any value but which must not be 
earlier than the initial time m the trajectory at which the first thermal data input (QDOTT(i), 
HRECC(i), QRADD(i)) are applicable. When NPTS4 is entered as zero in card 13, card type 
1 8 (containing WTIME(i), DELTM(i) values) is omitted and the program will run with the 
single calculation time step mput as DELTIM m card type 8 If, on the other hand, varying 
time steps are desired the number of such steps is entered as NPTS4 and the appropriate 
number of type 18 cards (each giving 3 WTIME(i), DELTM(i) pairs) included in the mput. 
When NPTS4 is greater than 0, the DELTIM entry on card type 8 is given the value of unity 
and is ignored by the program. The initial time (WTIME(l)) must be given a value equal to 
or lower than TIMO. DELTM( I ) will then be used by the program until TIME = WTIME(2) 
when the calculation tune step will automatically change to DELTM(2). When TIME = 
WTIME(3), DELTM(3) becomes the calculation time increment This process contmues 
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until completion of the problem. It is mandatory, however, that the last mput value of 
WTIME(i) be greater than the final problem TIME. 

The element dimension DELX (for UK = 0, all elements are cubes of the same size), 
also a constant, can be given only one value per problem Thus, for UK = 0 this-dimension 
represents the length, width and thickness of all ten elements. For UK = 1 , DELX is the 
smallest element dimension in the direction of heat flow. 

» 

Each structural configuration (problem) can have only one outside element (element 
one) which receives and reradiates heat. Internal elements transfer heat only by conduction 
to or from adjacent elements, except for element 10 which is allowed to radiate (by parallel 
plate radiation) to an “inner plate”, the heat storage capacity of which is defined by the 
input data: RHOIN, CPIN and TAUIN (card type 14) QRADD(i) entered m card type 
17 is the heat radiated into element one (Btu/ft^ sec) and the input value must mclude 
the absorptivity of the exposed surface of element one. It is thus, possible (by entenng 
both heat mput items of card types 1 5 and 17 equal to zero) to allow a body to cool by 
radiating to space It is also possible (by entering QDOTT(i) and HRECC(i) in card types 
1 5 and 16 equal to zero, but entering QRADD(i) ^ 0) to examine the effects of heat 
radiatmg to the surface m the absence of any convective heating 

Finally, the heat radiated mto the structure interior from the inner surface of element 
ten depends upon the input values of EP2 (surface emissivity of element ten), EP3 (surface 
emissivity, sic absorptivity, of structure to which element ten is radiating), the initial mput 
TINNER (temperature of structure to which element ten is radiating) and the heat storage 
capacity of the “inner plate” (also input). Calculations of this inward radiation alone assume 
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that element ten has a temperature (TlOi) which is constant through each time step at the 
initial value for that time step. This approximation avoids the complexity of a fourth- 
order equation involving the unknown T1 OF That is. Equation (7) should correctly be : 


qRADINTERNAL= (EP23) (0.4805 x 10-12) 

[< 


1"^ TlOi-fTlOf^ a _ ^ TINNERi + TINNERy 


(16) 


The error introduced by ehminating the averaging process is small. 


Page 1 of Figure 1-3 shows the required input data format Pages 2 and 3 of this figure 
define the input variables. It should be possible to input a standard problem using only 
Figure 1-3 as a guide The following hst defines the input data summarized m Figure -1-3 
Note that all input is in floating point except where otherwise specified. 


• Card-type 1 One card per problem. Column 1 contains the digit “1” to 
assure that each problem starts a new printout page. Columns 2 through 
80 contam any alpha-numenc title which will appear at the head of the 
printout. 

• Card-type 2 One card per problem. The counter, J, is the number of 
calculations to be made and is a fixed-point number, nght justified in 
columns 1 through 3. Columns 6 through 15 receive EP2, the emissivity 
of the inner exposed surface of element ten. Columns 16 through 25 
contain EP3, the emissivity of the surface to which element ten is radiating 
Columns 26 through 35 take the initial value of the temperature to which 
element ten is radiating Columns 36 through 45 and 46 through 55 
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receive the coefficients AE and BE, respectively, in the variable element 
one surface emissivity equation. 

EMIS = AE(T2) + BE(T) + EMIO (1 7) 

© Card-type 3. One card per problem. TIMO, the initial problem time 
(sec), appears in columns 1 through 10. This is followed (m fields of 1 0) 
by EMIO (element one’s outer surface emissivity if constant with temper- 
ature, the constant in Equation 17 if emissivity varies with temperature), 

XKA, XKB, XKC, XKD, and XKE (the thermal conductivity of elements 
1, 2, 3, 4 and 5, respectively, m Btu/ft sec ”R). 

® Card-type 4, One card per problem. This card contains, m seven con- 
secutive fields of 10 columns each, the thermal conductivities of elements 
6 through 10 and the densities of elements 1 and 2 (Ibm/ft^). 

® Card-type 5. One card per problem. This card takes, in consecutive fields 
of 10, the densities (Ibm/ft^) of elements 3 throu^ 9. 

o Card-type 6. One card per problem, contaming, in consecutive fields of 1 0 
the density of element ten (Ibm/ft^) and the specific heats of elements 1 
through 6 (Btu/lbm °R). 

© Card-type 7. One card per problem containing, in consecutive fields of 
10, the specific heats of elements 7 through 10 (Btu/lbm°R) and the initial 
temperatures of elements 1 through 3 (°R). 

® Card-type 8. One card per problem contaming, m consecutive fields of 10, 
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initial temperatures of elements 4 through 10 (°R). 

• Card-ty.pe 5. Qne cariper grobl^. Columns 1 through 1 0 take the cuMc 
element dimension (or smallest conductive distance) (ft). Columns 1 1 
through 20 contain the problem initial time (TIMO) in seconds. Columns 21 
through 70 (in consecutive fields of 10) take the coefficients U1 through U5 
for the element conductivity' equations: 

XKl = XKA + (U1)T, XK2 = XKB + (U2)T, etc. 

• Card-type 1 0. One card per problem, containing, in consecutive fields of 
10, the remaming element conductivity coefficients (U6 through UlO) and 
the first two element specific heat coefficients for the linear specific heat 
equations 

CPI = CPA + (VI )T, CP2 = CPB + (V2)T; etc. 

• Card-type 1 1 . One card per problem containing, in consecutive fields of 
10, the specific heat coefficients V3 through V9. 

® Card-type 12. One care per problem. The last specific heat coefficient, VI 0, goes 

in columns 1 through 10. Column 11 contains UK, the counter which initiates the 

use of analogous, non-cubic elements. UK = 0 is used when all elements are cubes 

of the same size. When UK = 0, the last 6 card types (19-24) are oiratted. If 
^ / 

UK = 1, all card-types 19-24 must be submitted and DELX is entered as the small- 
est element dimension in the direction of heat flow. IHW is entered in column 12. 
If It is desired to mput cold wall heat rates to the program, IHW is entered as 
zero; if hot wall values are to be input, IHW is entered as one. 
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The counter KJK is entered in column 13, If = 0, KJK instructs the program 
to print aU element final temperatures in ^F, if = 1 , these temperatures are 
printed out in °R. 

® Card-type 13 One card per problem In five consecutive fields of 3 NPTSl , 
NPTS2, NPTS3, NPTS4 and KK6 are input in fixed pomt, right justified 

' NPTSl = number of pairs of time (i) - QDOTT(i) to be input, NPTS2 = 
number of pairs of time (i) — HRECC(i) to be input, NPTS3 = number of 
pairs of time (i) — QRADD(i) to be input; NPTS4 = number of pairs of 
WTIME(i) — DELTM(i) to be input; and, fmally KK6 = number of cal- 
culations per prmtout. 

• Card -type 14 One card per problem. This card takes the input density 
(Ibm/ft^), specific heat (Btu/lbm°R), and thickness (ft) of the “mner plate” 
to which element ten radiates 

• Card-type 1 5. NPTSl /3 cards per problem. In six consecutive fields of 
12, XTIMEO) - QDOTT(i) values are entered, (sec, Btu/ft^sec) 

• Card-type 16. NPTS2/3 cards per problem. In six consecutive fields of 
12, YTIME(i) — HRECC(i) values are entered, (sec, Btu/lbm) 

® Card -type 17. NPTS3/3 cards per problem In six consecutive fields 
of 1 2, values of ZTIME(i) - QRADD(i) are entered, (sec, Btu/ft^ sec) 

® Card-type 1 8. NPTS4/3 cards per problem. In six consecutive fields 
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of 12, WTIME(i) — DELTM(i) values are entered, (sec, sec) 


• Card-types 19-22. One of eac h pe r problem, containing, in consecutive 
fields of 14, XAl, AAl, XA2, AA2, . . . XAIO, AAIO. These are the 
■element dimension in the direction of heat flow and the element area 
normal to the heat flow direction for the ten elements, (ft, ft^) 

o Card-types 23 and 24. One each per problem. In five consecutive fields 
of 14, the AREFl, AREF2, . . AREFIO values are given, where 
AREFi = AAl actual/AAi reduced. Note that if no reduced areas are used, 
the ten items of card types 23 and 24 are entered as “1 .”. This completes the 
basic input definitions. The concept of reduced areas is amplified below and 
in Figure 1-4. 

To use the capability of choosmg arbitrary element sizes and net heating, the user 
need make only two additional inputs to the program: 

® Enter the digit 1 (for UK) m column 1 1 of card-type 12 (to call for the 
varying element size option). 

• Enter the digit 1 in column 12 of card -type 12 if net heat into element 
one IS to be input as QRADD(i) If UK = 1 is used, enter the actual 
element depths (in direction of heat flow) and the reduced (where used) 
or real (where no reduced areas are used) areas (normal to the direction of 
heat flow) in card-types 19, 20, 21 and 22. NOTE that the number of 
elements can NEVER vary from ten. 
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The reduced element area used for varying adjacent sectional areas in the conductivity 
equation, is descnbed m the DISCUSSION Section (1.4) and shown diagramatically in 
Figure 1-4. Whenever UK is entered as 1, the ratio of actual area to reduced area must be 
provided by means of card-types 23 and 24 (even when these ratios are unity). To use the 
program with ten identical cubic elements, enter zero m column 1 1 card-type 12 and omit 

N 

card-types 1 9 through 24. 

The surface emissmty of element one can be input as a constant, a linear or a quadratic 
fimction of the temperature. If a constant value is desired, set AE = BE = 0 and input the 
desired constant value as EMIO. If a Imear variation is desired, set AE = 0, BE = the slope 
of the Hnear emissivity-temperature curve and EMIO = the constant (base temperature) 
value. If a quadratic variation is desired, mput the applicable coefficients, AE and BE, and 
the constant, EMIO, for the emissivity equation: 

EMIS = (AE)T2 + (BE)T + EMIO 

The input of XTIME(i) - QDOTT(i), YTIME(i), HRECC(i), and ZTIME(i) -QRADD(i) 
is set up to accept series of points from plots of these parameters. The program will inter- 
polate hnearly between the input points. Consideration of this procedure enables the 
operator to so select his mput points that hnear interpolation will not result in mterpolated 
values which are unreasonably removed from reality. The number of pomts entered is 
arbitrary (up to a maximum of 100) but for each set of data the number of data mput 
pairs must be speafied. This is accomplished as follows* 
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Input Item 


Input Quantity Indicator 


XTIME(i), QDOTT(i) 

NPTSl 

YTIME(0, HRECC(i) 

NPTS2 

ZTIME(i), QRADD(i) 

NPTS3 

WTIME(i),DELTM(i) 

NPTS4 


CAUTION All floating point entries for input data are actually in D — format such that 
they can be entered m either F or D — mode. If entry is made in D — mode, the entry must 
be right justified in the field. For example, if AE is entered on card-type 2, columns 36 
through 45, in D — mode as 0.1 37 D-6, the 6 must be placed in column 45 and no blanks 
left to the right of the decimal. If F — mode is used, the desired (including negative sign 
and decimal point, if required) is simply entered as “0.000000137” within the designated 
field. 

1.4 DISCUSSION 

. A few words are in order with respect to the advantages and disadvantages of the 
UK option. The basic program considers one-dimensional heat flow through ten consecutive 
elements which may consist of up to -ten- different materials all of which must be cubic 
elements having identical dimensions. The UK option retains all of the features of the cubic 
element form but allows the elements to have arbitrary dimensions. The analysis in some 
cases will be approximate. The solid hnes of Figuxel-4 show an arbitrary series of elements. 
If these varying sectional areas were input as shown, the calculation of conducted heat using 
the UK = 1 option would be extremely questionable because of the discontinuities at ' 
several of the contact surfaces' see “actual heat path” (the sohd diagonal Imes in element 
one) as opposed to the “simulated heat flow path” (the dashed vertical hnes in element one). 
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Note that using the reduced area represented by the dashed lines will also reduce the heat 
capacity of element 1 unless the density of the material is mcreased by the factor: 

actual area/reduced area 

over and above the correction made by Equation 15. Thus, if some mean value of an element 
area is to be considered. Equation 15 must be altered for each element in which such a 
“mean area” is used (there is an area discontmuity) to read 



where Aa/Ar is (by definition) AREFi (i = the applicable element number). In this way, a 
first-order correction to the element heat-conduction flow is made without introducing 
error to the heat-stored terms. Of course, the greatest accuracy results from avoiding the 
use of varying element areas' Varying element thicknesses (in the direction of the heat 
flow) does not cause any error m the heat stored terms nor in the conduction terms. 

As an example of approximating the simulated area, note that the distance AB = 1/2AC 
(Figure 1-4, element one) is the method suggested at this time. Additional experience with 

t. 

experiment data may demonstrate the applicability of some factor other than one-half. All 
elements adjusted in this manner are calculated in NQLDWl 12 by Equation 18 instead of 
Equation 15. Note that all element sectional areas (normal to heat flow direction) entered 
in the program as AAl, AA2, . . . AAIO are the “reduced” areas (Ar), NOT the actual 
areas (Aa), unless a reduced area for that element does not exist. Corrections are made 
withm the program by using the (mput) ratios AREFI, AREF2, . . . AREF 10 to com- 
pensate for the element volume change. If no “reduced” element areas are used (but UK = 1 
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to permit varymg element thicknesses to be mput), the values of AREFl through AREFl 0 
must be input as “1.”. Moreover, whenever UK is entered as 1, all six card-types (19 
' through :24) must he present. 

1.5 MATERIAL JOINTS 

When it is desired to use experiment to mvestigate the thermal lag arising from a con- 
tact surface joint, a dummy element is mserted m place of the “gap.” In order to give 
meaning to the dummy element as representmg the thermal resistance of two abuttmg 
materials m a contact joint, some systematized analytical process is required. If such a 
system can be found which is apphcable to joints in general, then experimental data can be 
used to establish empirical values of the variable selected. For this purpose, the following 
assumptions are made- 

The dummy element is assumed to be of the same material as the 
material of the preceding (in the heat-flow path) element. 

The area of the dummy element is assumed to be that of the pre- 
ceding element. 

The variable m the dummy element is taken to be the thickness 
(dimension in the direction of heat flow). 

These assumptions will introduce an error into the heat-stored term because the pro- 
gram would ordinarily consider the heat mass of the dummy element. However, the intro- 
duction of a fictitious and arbitrarily small value of the element material density eliminates 
unwanted stored-heat in the dummy element. Thus, the heat-stored term is made arbi- 
trarily smaU. A value of 1 x 10"^ for the dummy element density is adequate in most cases. 
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Application of the method to a real situation requires experimental data. Using the 
method a sufficient number of times may produce a rule-of-thumb relationship between 
the dummy element thickness and the thickness of the elements adjacent to the dummy 
element. Until such a relationship is established for each particular type of jomt considered, 
each case will have to be run over a range of dummy element thicknesses such that the thick- 
ness which win yield the correct mner matenal temperature histoiy will be bracketed. The 
“joint element” thickness may then be inferred. 

1.6 OUTPUT 

As output, NQLDWl 12 pnnts in blocks at the end of each time = (DELTM(i)) (KK6) 
the time, final temperature of each of the ten elements, average hot wall heat input for the 
last covered time-step, heat radiated from element one, heat radiated from element ten and 
the temperature of the plate to which element ten radiates. The time is in seconds. All fmal 
temperatures are m °F (if KJK = 0) or °R (if KJK = 1). QAHW, QROUX and QRAD INTERNAL 
are in Btu/ft^ sec. T1 Prefers to the mean temperature of element one at the mdicated time 
which IS, of course, the temperature at the end of that time step which concludes with the 
indicated time. T2F is the same for element two, etc. Thus, each printout block gives the 
temperature distribution at the indicated time. Note that the temperature “TINNER 
STRUCTURE” is always given in ®R, regardless of the mput value of KJK. 

All mput data are also printed out at the start of each problem, including the counters 
UK and IHW. The counter KJK (0 if fmal element temperatures are in “F; I if in °R) is not 
pnnted out but each block of output temperatures is preceded by the statement “Tempera- 
tures of elements are in degrees F” (or °R, as apphcable). 
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Particular attention is called to the fact that the counter UK in NQLDWl 12 does not 
have the same definition as the counter UK in NQLDWl 17 (Section 2). 

A typical example of prmtout for NQLDWl 1 2 may be seen in the sample problem of 
Appendix A. 
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SECTION 2 

NQLDWl 17, THE ABLATING SURFACE PROGRAM 
2.1 INTRODUCTION 

This section describes a program for calculatmg ten-element, one-dimensional structural 
heatmg with surface ablation. The program is similar I'n theory to NQLDWl 12 (Section 1) 
but permits a receding outer element surface governed by’ either of two options' 

® Input an effective heat of ablation as a function of heat transferred to 
the surface. 

® Input a surface recession rate as a function of heat transferred to the 
surface. 

For ablative or subhrmng surface materials which produce neither significant melting 
and hquid flow nor a strong char layer, the program provides a thermal gradient history 
through the structure as well as a history of the ablating surface element thickness. It serves 
as a simple and relatively fast means of estimating the effectiveness of an ablative or subhmmg 
thermal-protection coating and is not intended to supplant any of the more sophisticated 
programs. 

In order to expand the capabihty of NQLDWl 12 (Section 1) to include the effects of 
an ablative surface, NQLDWl 17 has been generated. This program uses the same basic 
theory as NQLDWl 12 but the additional calculations required by the ablation of the 
exposed surface of element one will sigmficantly alter the program mput. For this reason, 
a new program number has been assigned to the ablation heatmg program. Note that only 
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element one is permitted to ablate so that element one thickness (XAl) input must be 
shghtly greater than the total amount of material that is expected to ablate. If and when 
all the ablation matenal of element one has eroded, the program prints out a warning to 
this effect and continues the analysis as m the non-ablating program (NQLDWl 12) 

2.2 THEORY 

The theory underlying NQLDWl 17 is essentially that described in 1 2 of this report 
Companson of radiant heat facility test data with the present analytical methods offers 
some credibility for this theoretical approach in so far as the “conductive” and “heat- 
stored” heat balance is concerned. The program does not account for the mechanisms of 
the ablative process (char formation, spalling, heat blockage due to out gassing, mass addition 
to the boundary layer, melt and flow, etc.) per se The gross effects of these processes are 
inherent m the input “effective heat of ablation” or “surface recession rate.” The validity 
of this assumption must depend in each case upon the manner m which the input data were 
obtained In general, the program is best able to handle those ablation materials which sub- 
lime or form only a weak char layer which is quickly removed by boundary layer wall shear 
stresses The program cannot ordinarily produce meanmgful results on materials which 
form strong char layers or substantial amounts of liquid flow of the surface material For 
such materials, the Langley Charrmg Ablator program of Reference A is recommended. 

It might be possible, however, to examine strong char-layer-formmg ablative materials 
on an approximate basis if one has information on the thermal properties of both the 
char and the virgm matenal and S 9 me data which will permit a reasonable estimate of the 
char formation rate for the thermal environment anticipated The problem would have to 
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be run in several steps, however The first step would assume an mitial char layer thickness 
and form an element (thermal) model based upon this thickness After running for a time 
which IS estimated to yield the chosen char layer thickness as an average value, the program 
IS terminated. The resulting final temperature distribution from the first run is then entered 
as the initial distribution for the second run which utilizes an identical thermal model ex- 
cept that the char layer thickness is increased to a value which represents the estimated 
mean char thickness for a second period of time. If the char is known to slowly erode, 
this can be accounted for in the step changes from one run to another This is obviously 
an approximate method and should be used with caution until experimental corroboration 
is available 

The effective heat of ablation (or surface-recession rate) of the element one material 
is input as a function of heat transfer rate to the wall (see discussion, 2 5). These data are 
input as a series of two-dimensional (Cartesian coordinate) pomts The program then cal- 
culates the correct hot-wall heat rate to element one and, using this value, interpolates 
linearly (Figure 2-1) between the two applicable pomts of the input data to obtain the 
correct effective heat of ablation or surface recession rate for that time step. From these 
data, the actual surface recession rate for each time step is calculated and the element one 
thickness is decreased by this amount. The process contmues until the thickness of ele- 
ment one becomes zero or negative. 

Only element one is permitted to ablate because the program solves the ten heat 

balance equations simultaneously. When the thickness of element one becomes zero or 

negative, it is automatically reset to 5 percent of its original thickness and the program con- 

\ 

tmues to solve the problem as though there were no further ablation. Thus, one selects as 
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the element one thickness only such value as he anticipates will shghtly more than account 
for the material loss by ablation. Elements two, three, etc. can also be of the ablative material 
and will be correctly calculated as far as the heat conducted and stored is concerned, but 
no material loss is allowed on any but element one. Note that, when the element one thick- 
ness has gone to zero or negative and has been returned to 5 percent of its onginal value, the 
program printout will contam the comment. “Ablation layer has been completely eroded.” 

The hot-wall heat rate, QDOTT, is normally used to mput the surface recession rate, 
DX(i), or effective heat of ablation, QSTAR(i), because most expenmentally derived data 
appear to be based upon the actual net heat transferred to the wall Provision is made (see 
2.5) for other definitions of the heat rate, QDOTT, upon which the surface degradation 
data may be based It is assumed, of course, that the material does not form a heavy hquid 
flow or strong char layer 

The program automatically restricts the surface (element one) temperature to the 
material ablation temperature (ABLTM) and assumes that ablation occurs only when the 
heat input is great enough to mamtam the suiface at this temperature Once the maximum 
^lowable amount of element one material has been ablated, the program removes this re- 
striction on element one temperature and, in general, behaves as though the problem involved 
no ablation 

2.3 INPUT 

Figure 2-2 is a summary of the program input. There are twenty card-types. Card- 
types 1 through 12 and 16 through 21 are input one card per problem. Card-types 13, 14, 

I 

and 15 are mput (respectively) NPT 1/3, NPT2/3, and NPT3/3 cards per problem and card- 
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type 20 IS input NPTS cards per problem All mput is floatmg pomt within the fields shown 
m Figure 2^2 except J, UK, NPTS, IHW, KJK, NPTl, NPT2, NPTS and KK6 which all are 
fixed point entnes and must be right justified within their allotted fields Multiple-problem 
entries are made by simply stacking the problems, but each problem is an entity in itself and 
must include all the cards shown (card-types 1 through 22). 

TIMO, the problem start time in seconds, can be input as zero or any positive number 
but, unlike program NQLDWI 12, DELTIM (the calculation time step in seconds) can have 
only one value per problem, if the program starts with DELTIM = 1 second, this value is 
retained for the entire run. The failure to provide the varymg DELTIM capabihty in this pro- 
gram came about as a logical machine storage and running tune saver. Program storage re- 
quirements for the go-step are mcreased by adding the variable DELTIM capability. This 
represents a mmor negative because the increase is not great. However, the very nature of 
the ablatmg or decomposing surface automatically limits the length of time that the structure 
can survive. (The ablation material is completely dissipated within a relatively short run). 

If, in rare circumstances, it is necessary to consider, long periods of time following an imtial 
short penod of ablation, the program results of the short period ablation calculation can be 
input to NQLDWI 12 and the calculation completed with up to ten different calculation times 
(DELTM(i)) 

The following comments consider the card-types m order. All input is floating point 
withm the given field except as noted (CAUTION UK in NQLDWI 17 is NOT the same 
as UK in NQLDWI 12). 
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• Card-type 1. One card per problem. Put a “1” m column 1 to assure that 

the program run will start on a new page The title may be any alphanu- 
meric entry, in columns 2 through 80 and is used solely as a user’s identi- 
ficatiomof the-problem; - ’ ~ - — - 

® Card-type 2 One card per problem. J, which defmes the number of cal- 
culations to be made, is input in fixed pomt right justified in columns 1,2, 
and 3 Columns 4 and 5 are blank EP2, the surface emissivity of the inner 
surface of element 10 is mput m columns 6 through 15 EPS, columns 16 
through 25, IS the emissivity of the surface to which the mner surface of 
element 10 is radiating TINNER (columns 26 through 35) is the temperature 
of the surface to which element 10 radiates in ‘’R. (Note that TINNER in 
this program is constant at the mput value, it does not vary with the heat 
from element 10 as it does m NQLDWl 12. AE and BE (columns 36 through 
45 and 46 through 55, respectively) are the coefficients in the element 
one material surface emissivity equation: 

EMIS - AE(T2) + SECT) + EMIO 
(T is temperature, ‘’R) 

• Card -type 3. One card per problem TIMO, columns 1 through 10, is the 
arbitrarily set startmg time m seconds (may be zero or any positive number) 
EMIO, columns 1 1 through 20, is the constant term m the element one ex- 
posed-surface emissivity equation immediately above NOTE that EMIO can 
yield any desired constant value of EMIS by setting AE = BE = 0, it cah^yield 

a Imear variation in EMIS by settmg AE = 0 and BE 0; or a quadratic expres- 
sion for EMIS by settmg AE and BE ^ 0. XKA, XKB, XKC, XKD and XKE, 
the coefficients of thermal conductivity for elements one through five (Btu/ 
ft sec °R), are mput mto, respectively, the fields (columns) 21-30, 31-40, 
41-50, 51-60, and 61-70. 

• Card-type 4. One card per problem. Columns 1 through 10, 11-20, 21-30, 
31-40 and 41-50 contam, respectively, the thermal conductivity coeffi- 
cenfs of elements 6, 7, 8, 9 and 10 (Btu/ft sec *’R) Columns 51-60 and 
61-70 contain the material densities for elements 1 and 2 (Ibm/ft^) 

• Card-type 5 One card per problem. In successive fields of ten columns 
each (1-10, 1 1-20, etc.) the densities (Ibm/ft^) of the materials of ele- 
ments 3 through 9 are specified. 

• Card -type 6. One card per problem. The density of the element 10 
matenal (Ibm/ft^) is input m columns 1 through 10 In fields of ten 
(1 1-20, 21-30, . . 61-70) the specific heats of the materials of ele- 
ments 1 through 6 are defined (Btu/lbm °R). 
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o Card-type 7 One card per problem. The i^st four fields of ten are the 
material specific heats for elements 7 through 10 (Btu/lbm °R). The 
last three fields of 10 (41-50, 51-60, 61-70) give the initial temperatures 
of elements 1 , 2 and 3, respectively (®R) 

• Card-type 8 One card per problem. In fields of ten, the mitial tem- 
peratures of the remaining seven elements are input (°R). 

® Card -type 9. One card per problem. Columns 1 through 10 contain the 
cubic element dimension, DELX, in feet Some number must always be 
placed here. If all ten elements have the same thickness, this thickness 
IS entered. If the elements are of varymg thicknesses, enter the smallest 
element thickness. The time step (seconds ) goes into columns 1 1 
through 20. Unlike NQLDWl 12, this time step is constant throughout 
the problem The remainmg five fields of ten on this card (21-30, 31- 
40, 41-50, 51-60 and 61-70) contam, respectively, Ul, U2, U3, U4 
and U5 , These are the coefficients in the equations of Imear thermal 
conductivity versus temperature* 

XKl = XKA + (U1)T; XK2 = XKB + (U2)T; etc. 

Note that Ul , U2, . Ul 0 must always be given values. T o input 

constant coefficients of thermal conductivity, the values of XKl , 

XK2, . XKIO are entered and all U values are set at zero 

i 

® Card-type 10 One card per problem. Columns 1-10, 1 1-20, 21-30, 
31-40, and 41-50 contam U6, U7, U8,U9 and UlO (dimensionless) 

(see last item of card -type 9) Columns 51-60 and 61-70 contain V 1 
and V2. The V’s handled m the same way as the U’s just described, 
represent the coefficients m the equations of linear specific heat as 
functions of temperature* 

CPI = CPA +(V1)T, CP2 = CPB + (V2)T, etc 

• Card-type II. One card per problem. ThecoefficientsVS through 
V9 are entered on this card m consecutive fields of ten. To obtain 
constant values of specific heat (with temperature) enter all V’s as 
zero and the constants as CPI through CPIO. 

o Card-type 12 One card per problem The last coefficient (VIO) goes 
in columns 1 through 1 0 Column 1 1 contains the counter UK (= 0 if 
surface recession rate versus heat transfer rate is input, = 1 if effective 
heat of ablation versus heat transfer rate is input. NOTE that this 
definition is NOT the same as UK in NQLDWl 12') Column 12 con- 
tains IHW (= 0 if cold wall heat-input rates, QDOTT(i), are entered, 

= 1 if hot wall heat rates, QRAD3(i), are entered). NFTS is the number 
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of pairs of input data for DX(i) or*QSTAR(i) versus QDOTT Thus 
NPTS is also the number of DX(i) or QSTAR(i) versus QDOTT cards 
(one value of each, ’DX(i) or QSTAR(i) and QDOTT per card) This 
number is entered, fixed point, right justified in columns 13-15 
Columns l'6-30 contain ABLTM (°R), the temperature at which the 
material of element one begms to decompose; this figure must always 
be given. 


• Card -type 13 NPTl cards per problem. In six consecutive fields of 
twelve are entered, respectively, TIME 1(1), QDOTl (i),TIME 1 (2), 
QDOTl (2), . . . TIMEl (NPTl), QDOTl’ (NPTl). QDOTl (i) is the 
cold wall convective heat rate into the outer surface of element one 
(Btu/ff2 sec). 


• Card -type 14. (NPT2)/3 cards per problem. Also m six consecutive 
fields oftwelve, the TIME 2(i) — HRECC2(i), i = 1, NPTS2, data is 
input (sec, Btu/lbm). 

© Card -type 15 (NPT3)/3 cards per problem Similar to card-types 13 
and 14 but inputs TIME 3(i) — QRAD3(i), i = 1, NPTS3. (sec, Btu/ft^ sec). 


• Card-types 1 6 through 19. One each card-type per problem. These 

cards contam the element thicknesses (m direction of heat flow) and 
section areas (m plane normal to heat flow) (or the reduced areas, if 
used). Each of the cards of types 16 through 19 contams five consecu- 
tive fields of 14 Element thicknesses -(ft) are XAl, XA2, . . . XAIO, 
areas are AAl , AA2, . AA 10 Data are input on these four cards in 
the order: XAl, AAl, XA2, AA2, . XA10,AA10. 

• Card-types 20 and 21. One each card-type per problem These card- 
types are used to input area ratios such that a structure consisting of 
elements havmg different section (element) areas normal to the heat 
flow path can be approximated. The method of settmg up the reduced 
areas to account for an approximation of the true heat-flow path is 
shown m Figure 2-3. A reduced area (if elected by the user) is entered 
as AA(i) m preference to the actual AA(i) area. If no reduced area 
exists, then the actual area of element (i) appears m AA(i). Also, when- 
ever a reduced area is entered as AA(i), the corresponding (F^ element) 
AREF(i) must be entered as 

i 

ARFFm = AA(i) actual 
AA(i) reduced 

For the standard problem (all element areas the same), enter all AA(i) 
terms as AA(i) actual and all AREF(i) terms as “1 


(19) 
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• Card-type 22. NFTS cards per problem. This card-type contams two 
fields of fifteen (columns 1-15 and 1 6-30) and provides for input of 
DX(i) or QSTAR(i) versus QDOTT(i) DX(i) is the surface recession 
rate (ft/sec), (IJK= 0) and QSTAR(i) is the effective heat of ablation 
(Btu/lbm) (UK =1). Note that DX(i) and QSTAR(i) cannot be input 
in the same problem, “i” is an mdex mdicatmg that DX or QSTAR 
and QPOTT correspond. QDOTT(i) is the heat transfer rate to the wall 
at which DX(i) or QSTAR(i) apphes Each card represents a pomt on 
the DX or QSTAR versus QDOTT curve and the program mterpolates 
Imearly between any two mput pomts The user, therefore, must select 
a sufficiently large number of pomts to make the Imear interpolation vahd. 


2.4 OUTPUT 

The problem prmtout consists of two sections, a hstmg of the input data and the pro- 
blem solution or output data The listed input data appear in the same terminology used in 
the input portion of this section (also, see Figure 2-2) The problem solution data are 
identified on the pnntout The first block consists of the actual element volumes (VAl, 

VA2, . VAIO) (ft2), the mput cubic element dimension (XE) (ft), the cubic element 
area (AX = XE^) (ft^), the cubic element volume (VE = XE^) (ft^), and the term XX = XE/ 
AX = 1/XE (ft~Q These data, used primarily for program checking, are not normally of 
interest to the program user. 

The remainder of the pnntout for each problem contains the pertment output data 

A block of prmtout is given for each printout mterval (= (J) (KK6) seconds), (J)/(KK6) 

blocks total. The first item is the time (sec) This is followed by the ten mdividual element 

end-of-time step temperatures: TIE, T2F, . . . TIOF(^R) QAHW is the average hot- 

wall heat rate over the last calculated (pnor to “time”) time step (Btu/ft^ sec) QROXJT is 

the rate of radiative heat transferred from the external surface of element one to space 

(Btu/ft^ sec). QRADINTERNAL is the radiative heat rate from the inner surface of element 
✓ 

ten to the applicable structure withm the vehicle (Btu/ft^ sec) Fmally, the current thickness 
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of the ablation layer (element one) appears (ft) 


2.5 DISCUSSION 

The method of entering the heat transfer rate history depends upon the physical circum- 
stances. Three common methods are available: 

(1) Normally, the cold wall (Tw = 540®R) heat rate would be entered 
as a function of time on card-type 13 usmg QDOTl (i). This entry 
must include the vahd local recovery enthalpy, HRECC2 (i), history 
as well (card-type 14), QRAD3 (i) (card-type 15) may be given the 

.value of heat rate transferred to the wall from the shock layer, sun, 
or other radiating source (or, if no such source.exists, may be given 
the value zero). As long as the heat input is entered through QDOTl (i) 
on card-type 13, the program will correct this heat rate to a hot- 
wall heat rate and the heat-balance equations and surface ablation 
will be associated with the hot-wall heat rate (IHW = 0) 

(2) Occasionally it is desirable to input the net heat rate transferred to the 
wall (e.g. rate derived from radiant-heat lamp tests) In this case, the 
heat history is input by letting QDOT 1 (i) = 0, HRECC2(i) = 1 , and 
QRAD3 (i) = the net heat rate transferred to the surface. Also, the 
counter IHW must be set equal to one and the surface emissmty of 
element one must be set to zero (EMIO = AE = BE = 0). 

(3) To input a hot wall heat rate (not the net rate, as above) proceed 
as for (2) above but give EMIO, AE and BE their proper values to 
define the surface emissivity of element one No cold-to-hot- 
wall correction will be made but the surface radiation (out) will 
be accounted for. The counter IHW is, again, set to 1 for tins case. 

When inputting the surface recession rate, DX(i), or effective heat of ablation, QSTAR(i), 
as a function of heat transfer rate, QDOTT(i), in order to defme the ablation characteristics 
of the element one material, it is necessary to understand exactly which parameter, DX(i) 
or QSTAR(i),was used to obtain the ablation property (from experiment). If, for example, 
the effective heat of ablation is available in terms of QSTAR(i) versus QDOTT(i) (where 
QDOTT(i) is the COLD-WALL heat rate), one uses method (1) above to mput the heat 
rate (cold wall, as derived from the applicable trajectory and any of the boundary layer heat 
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transfer analytical sources). If, on the other hand, the ablation characteristic is known only 
in terms of the net heat transfer rate, method (2) should be used to input the heat pulse 
Finally, if only hot-wall heat rate versus ablation rate (or effective heat of ablation) is known, 
trajectory -derived heating is input as in method (3). 

Figure 2-3 shows a typical structural arrangement to illustrate the settmg up of 
reduced-area elements AA(i), and associated area ratios AREF(i) Figure 2-4 presents two , 
typical problems showing the values of the input data. 

As mentioned previously, only element one is allowed to ablate and it is therefore 
necessary to estimate the thickness of element one such that it will contam sufficient 
material to protect the mner (structural) elements. This estimate can be made rather 
crudely by considermg the total heat mput and some average repession rate and then solving 
several problems usmg incremental increases m the value of the element one thicknessi 

If the heat load results m the ablation material thickness for element one havmg to 
be very large compared to the inner-element thicknesses, the program can be run as a step 
function Output of the first run (assuming an element one thickness near or equal to the 
other ablation material element thicknesses) is examined to fmd the time at which the 
ablation material of element one has been totally expended (the note “ablation layer has 
been completely eroded” will appear in the printout). Going back two.time steps, the 
experimenter can use the fmal conditions at this time as the initial conditions for a second' 
run-through In the second run, the element thicknesses are reassigned to make ten approxi- 
mately equal (where possible) elements Imtial element temperatures can be quite closely 
estimated from the final distribution taken from the first run. Of course, thus procedure 
can be repeated any number of times 
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Inasm-uch as the element one surface temperature cannot exceed the ablation temper- 
ature (ABLTM), the method is quite valid. Moreover, the internal heat driving function is 
correct. The procedure is illustrated m Figure 2-5. The initial temperature distribution at 
tune = 0 (fust run) is constant at 540°R In 20 seconds, element one has totally eroded (to 
the smallest permissible thickness) The upper temperature curve of the fust run figure 
shows the distnbution at t = 20 seconds, this distribution is then mput to the program as 
“initial conditions” for the second run. Also, the element dimensions are input to the 
second run as shown m the lower sketch. Any number of runs can he “parlayed” m this 
fashion, and the vahdity of the final distnbution is chiefly a function of accurate book- 
keepmg — withm the other restrictions of the theory, of course 

A typical prmtout may be seen m the sample problem of Appendix B 
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SECTION 3 

NQLDW040, THE ORBITING VEHICLE CARGO BAY BOX MEAN 
TEMPERATURE PROGRAM 


3 1 INTRODUCTION 

i 

The function of this program is to calculate a “mean temperature” of a payload box 
the volume and weight of which are specified and the position in an orbitmg vehicle cargo 
bay of which is known. In order to keep the program general in nature, the details of the 
payload box are specified only to the extent just described. Heat transfer within the box is 
accounted for by assuming the box to be composed of some fictitious material, “M,” having 
a density of W/V, where W,is the total weight of the payload box with contents and V is its 
total volume Various orbitmg vehicle cargo bay orbit conditions can be input and the cal- 
culation time interval can be given up to 10 different values. 

The heat transfer analysis is reduced to the one-dimensional case which is handled by 
the same theoretical methods as are used in the programs of Sections 1 and 2. The simplifi- 
cation from three to one dimensional heat transfer is accomphshed by the mtroduction of 
several assumptions and techmques. The program has the ability to account for internally 
produced heat withm the box. The program is, of course, applicable to situations other 
than an orbiter bay payload box provided only that the box of interest be situated m some 
form of partly open contamer whose thermal exposure characteristics are known and whose 
inner surface temperature history (which the box “sees”) can be approximated (at some 
average value) as a function of time, 

32 THEORY 

The basic problem, an arbitrarily sized (though rectangular m shape) payload box 
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located arbitrarily withm the orbiting vehicle cargo bay, is sketched in Figure 3-1 In order 
to define approximations of the “view factors” for the various box sides and, ultimately, 
the box as an analogous umt, the view angles, THETA (i,j) are used. Their chief function 
IS to discriminate between that portion of each surface area which sees only the bay (at 
some average bay temperature) and the complementary portion which can “see out” of the 
bay to deep space, earth, sun, etc The radiation intensity from each surface varies with 
cosine of the angle between the normal to the surface and the direction of the radiation 
First, the individual box face view factors are defmed as follows 


(refer to Figure 3-1 to identify the angles, 0jj, and face areas, Aj) 
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Combining the individual f-factors into a weighted mean value, F, get 


Fqut ” 


ffAQu-r) (^a) (fcpuT^ + ^fpouT^ + (%ouf > ^21 ) 

Aa + A.g + Ac + Ao + Ae + Ap 


Note that Fq^x = 0 or surface F can see only the bay surface 


F]>i - 1 - Fqux 


(32) 
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Some average temperature, T', to which the payload box radiates (by parallel plate 
radiation from element ten) is sought analogously. Note that the QDOTT(i) to element 
one IS only the internally produced power. The value is "used by NQLDW040 as 
“TINNER” in the analytical methods of Sections 1 and 2. T', as calculated by the program, 
IS 

AAE 

T' = (Fout)(Tout) + (FinXTin) + (^)(Tsrce) cos i|; (ALPHA) (33) 
with the restriction 

when Tjgp^cE > 3000, APLHA is as mput 
when Tsrce < 3000, ALPHA = EP2 

Thus ALPHAe is used only when surface “E” sees the sun. Typical values for TIN, TOUT 
and TSRCE are; 

CONDITION TIN TOUT TSRCE 

Bay looks at sun 617°R (+70°C) 0°R Variable (Appendix D) 

Bay looks at earth 455°R (-20°C) 510°R Vanable (Appendix D) 

Bay looks at deep 22rR(-l50°C) 0°R 0°R 

space 

A correction is made to EPS (the emissivity of the surface to which element ten radiates and, 
analogously, the mean emissivity of the bay and other payload items) by the program as 
follows 

EPS ^ ^OUT + (Fin) (^BAy) ^34^ 

(1 +^bay) 

The derivation of the “thickness” of the box is evident from the sketch of Figure 

3-2. 

X, + Xo + X3 

%EAN ^ (35) 
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Notice that this defines only the “conduction distance” for the analogous box material 
“M.” The box itself and its external insulation (if any) are treated as separate elements* 
see Figure 3-3. 

The thermal model in this figure has a 'typical breakdown of the elements to fit a 
given case. The XMEAN distance can be divided into any number of elements but the 
total number of elements used must be ten, of course. The box itself (shown as rg) and 
insulation (nnsul) are given the true values of conductivity, specific heat and density. 
Matenal “M”, however, is a fictitious material used to approximate the real (relatively 
undefined) case. The density of material “M” is defmed by 

Volume of Box 

% (36) 

Weight of Box and Contents 

The specific heat is selected such that Cp will approximate a weighted mean p Cp 
product of the entire contents of the box. 

(^Cp)meaN-(2Pi Cp.w,)/sw. 

/ J 

(i = 1 , no. of items in box) 

The most sensitive judgement factor in the entire analysis is the selection of the 
material “M” thermal conductivity, kj^j . This parameter must be selected to reflect the 
ability or lack of same of the box contents to conduct heat into or out of the box. If 
the contents represent a good conductive path, either naturally or by use of heat pipes 
or bulky, high conductivity structure, then kj^j is given a high value such as that of 
aluminum (0.02667 Btu/ft sec '‘R). If, on the other hand, the contents are thermally 
relatively isolated from the box skm, an appreciably lower value of kj,i would be selected. 
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In point of fact, this parameter must be considered a judgement or expenence factor or, 
perhaps more correctly, an empirical factor with which to relate test or flight data to 
theory. It will take comparison with such flight data or with much more sophisticated 
analytical data to build confidence in the ability to select reasonable values for . It 
is the key to the successful use of the program. 

Notice that the internally produced heat enters the analogous model of Figure 3-3 
as QDOTT(i), This parameter, entered as a function of time, is obtamed from the inter- 
nally produced power, P, and the relation’ 

P(i) 

QDOTT(i)= (38) 

2A 

where P(i) is m Btu/sec, QDOTT(i) is in Btu/ft^ sec and SA is in ft^. 


3.3 INPUT 

The mput format and definitions of terms are summarized in Figure 3-4. Considerable 
similanty between the input data of NQLDW040 and that of the preceeding two programs 
(NQLDW112 and NQLDW117) is evident. However, differences in defmition do exist 
. and each program should be treated as though the other two programs did not exist. All 
mput IS in floating point except where otherwise noted'. 


« Card-type 1. One card per problem. The digit “1” is entered in column 1 
to cause the problem printout to start on a new page. The rest of card one 
’ IS used to input the problem title in alphanumenc form. 


© Card-type 2. One card per problem, J is the total number of calculations 
to be made. This figure cannot exceed 2999 and is mput in fixed-point, 
right justified in columns 1-4. Column 5 is blank. The enussivity of the 
element ten exposed surface (box or insulation surface, whichever is exposed 
to the bay and space), EP2, is input in columns 6 through 1 5. Similarly, the 
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emissivity of the surface to which element ten is radiating (bay liner, 
space, etc. . .) is input m columns 16 through 25. 


o Card-type 3. One card per problem. Columns 1-10 contam the problem 
start time in seconds, normally mput as zero but can have any value. 

NPTSi, fixed-point, nght justified m columns 11-13, defmes the number 
of XTIME(i) - QDOTT(i) pairs that are to be input. NPTSI must be 2 
to 100; it cannot be zero or one. Also fixed-point, right justified in 
columns 14-15, NPTS4 (<10) defines the number of WTIME(i) — DELTM(i) 
pairs to be input. KK6 is the number of calculations per pnntout and 
is input (nght justified, fixed-point) m columns 16-18. In columns 19- 
20 (fixed-point, right justified), NPTS5 is the number of sets of TIN, 

TOUT, TSRCE and PSI data to be input, one set to a card.- In columns 
20 to 70 m blocks of 10 are given the thermal conductivities (XKA 
through XKE) of the materials of the first five elements (Btu/ft sec °R). 
NOTE: NPTS5 <20. 


• Card-type 4, One card per problem. The first 5 blocks of 10 columns 
each contam, sequentially, the thermal conductivities of elements 6 
through 10 (Btu/ft sec °R). Columns 51-60 and 61-70 contain the 
densities of the matenals of elements 1 and 2 (Ibm/ft^). 


® Card-type 5, One card per problem. Seven fields of 10 columns each 
receive the input densities for elements 3-9 (Ibm/ft^). 


• Card-type 6. One card per problem. Columns 1-10 take the density of 
the material of element 10 (Ibm/ft^). The next 6 blocks of 10 columns 
each contain the material specific heats of elements 1-6 (Btu/lbm °R). 


® Card-type 7. One card per problem. The first 4 blocks of 10 columns 
each take the specific heats of the matenals of elements 7-10 (Btu/lbm °R). 
The next 3 blocks of 1 0 columns each accept the imtial temperatures 
(®R) (at start of problem) of elements 1, 2, and 3. 


• Card-type 8. One card per problem. The rest of the element initial 
temperatures (elements 4-10) are given in 7 fields of 10 columns each 
(“R). 


o Card-type 9. One card per problem. DELX (ft), the cubic (if all elements 
are ,the same size and shape) or the smallest (if they are not) element 
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thickness in the direction of heat flow is given in columns 1-10. The 
next block of ten columns contains DELTIM (sec), the calculation 
time step when only one time step is used. If more than one time step 
is to be used, enter “1 in this space. Note that when only one time 
step is used, NPTS4 = 0 and card-type 14 is omitted. If more than 
one time step is to be used, NPTS4 >0 and card-type 14 must be 
entered. The next 5 blocks of 1 0 columns each contain the coeffi- 
aents in the laminar conductivity equations. 

XKl = XKA + (U1)T; XK2 = XKB + (U2)T; etc. 


• Card-types 10 and 11. One (each) card per problem. In 7 blocks of 
1 0 columns each, these two cards contain (sequentially) the last 5 ele- 
ment U-constants (U6 - UlO) and the first 9 V- constants (VI - V9), 
where the V’s are the coefficients m the Imear specific heat equations: 

CPI = CPA + (VI )T; CP2 = CPB + (V2)T, etc. 


• Card-type 12. One card per problem. The first 10 columns contam 
Vi 0, the last specific heat equation coefficient. UK, the counter which 
when = 0, calls out the fact that all 1 0 elements are identical in size 
and shape; or, when = 1, that the elements have varying thicknesses. 
Note that if UK = 1, then card types 21 through 26 must be input. If 
UK = 0, card types 21 through 26 are omitted. 


• Card-type 13. (NPTSl)/3 cards per problem. In 6 successive fields of 
12, this.card contams the TIME (i) - QDOTT(i) (i = 1, NPTSl) pairs 
(sec, Btu/ft^ sec). 


• Card-type 14. (NPTS4)/3 cards per problem. In 6 successive fields of 
12, this card contams the WTIME(i) - DELTM(i) (i = 1, NPTS4) pairs. 
Both WTIME(i) and DELTM(i) are in seconds. These data are input 
only when more than one calculation time step is desired. DELTM(i) 
is the program time step until the time reaches WTIME(i + 1) at which 
point the time step is changed to DELTM(i + 1 ). 


• Card-type 15, 16, and 17. One (each) card per problem. These three 
cards contam the payload box position angles (degrees). Cards 15 and 
16 have 6 fields of 12 columns each and card 17 has 4 such fields. The 
theta angles are defined m Figure 3-1. All of these data must always be 
included. 
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• Card-type 18. NPTS5 cards per problem. Each card has the time (sec) 
in columns 1-12 and the four input item values which pertain to that 
time m the next 4 blocks of 12 columns each. The items are (in order): 
TIN (°R), the bay and other payload item mean temperature, TOUT (°R), 
the temperature to which the bay is radiating; TSRCE (‘‘R), the tempera- 
ture of the non-orbiting-vehicle-borne source that radiates to the exposed 
(top) surface, “E”, PSI (degrees), the angle between a normal to the box 
top (surface “E”) and the impinging radiation ray (= O'’ for solar ray normal 
to box top surface, “E”). 


• Card-type 19, One card per problem. In 6 successive fields of 12, the 
SIX payload box face areas (AAA, AAB, AAC, AAD, AAE and AAF) 
are given (ft^). 


• Card-type 20 through 23. One (each) card per problem. These four cards 
each contam 5 fields of 14 columns. The values input in these fields are 
(respectively) XAl, AAl, XA2, AA2, . . . XAIO, AAIO where XAi 

(i = 1, 10) IS the dimension of the ith element in the direction of heat 
flow (ft) and AAi is the element section area normal to the heat flow of 
the ith element. Cards 21 through 24 are mcluded ONLY when UK = 1. 

• Card-types 24 and 25. One (each) card per problem. These two cards 
also have 5 fields of 14 columns each and contam, sequentially, the 
various values of AREF(i) (i = 1, 10) (ft^), AREF(i) is the ratio of the 
actual to the reduced area of the ith element. These two card types are 
also omitted when UK = 0. 


3.4 OUTPUT 

The output of NQLDW040 is very similar to that of the programs of Sections 1 and 
2. A listing of the input data is followed by a senes of block-results, each block repre- 
senting conditions at the indicated time. The blocks are printed out every KK6 times 
DELTM(i) seconds and consist of the applicable time (seconds); the 10 element tempera- 
tures ('’F or '’R, as elected by the user); Qin (interior power dissipation) (Btu/sec) which, 
when divided by the external area of the box, yields QDOTT(i) (Btu/ft^sec); "U, the 
effective average temperature to which the payload box radiates (always °R). 
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Note that the mean ibox temperature must be selected from one of the elements 
representing material “M” (e.g. elements 1-5 m Figure 3-3) If the box-with-contents 
conductivity is high (k = then the material “M” elements will have similar 

temperatures and it will not much matter which is selected to indicate the box mean 
temperature. However, if it is felt that the box and contents represent medium or poor 
conductive paths, then kj^j will be input as some value much smaller than kaiummum 
(0.02667 Btu/ft sec °R) and a reasonable estimate of the mean box temperature will be 
more difficult to estimate from the vanous material “M” elements. The use of the mid- 
point element of material “M” (i.e. element 3 in Figure 3-3) is a possibihty, or perhaps 
it will prove more reasonable to go to elements 1 or 2 in cases where the value is 
chosen to be very low 0.00001 Btu/ft sec °R). 

A typical printout may be seen in the sample problem run of Appendix C 
3.5 DISCUSSION 

There is not much that can be said of NQLDW040 at the present time because the 
value of the analytical method is so critically related to the experience factor. The pur- 
pose of the program, in common with the purposes of NQLDW112 and NQLDW117, is 
to provide a simplified, approximate analytical tool with which to handle thermal con- 
ditions which are exceedingly complex. Such problems, for maximum accuracy solutions, 
require complex thermal models which may take a month or moie of engmeering time to 
complete. In addition, the required machine time to analyze these complex thermal models 
IS correspondingly large — hence expensive. Sounding Rocket Division approximate techm- 
ques are used in the design of the present program. 
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It cannot be overemphasized, however, that the use of NQLDW040 must be limited 
to comparative studies m which qualitative results are used pnmarily as indicators of the 
effects of altering various parameters until the validity of the techniques used is demon- 
strated. Practice with experimental or flight recorded temperature histories will, in time, 
develop the user’s ability to predict the thermal effects on a payload box to a reasonable 
degree of accuracy. The program may be viewed much as a dimensional-analysis formula, 
basically a good tool but needing certain experimental constants to be of use as a quan- 
titative predictor. 

Those parameters which lend themselves most readily to experimental correlation are 
kj^, the position angles and the input temperatures TIN, TOUT and TSRCE. The 
material “M” conductivity is probably the most powerful variable with which to adjust 
theory to flight or experimental data. The other parameters can be used to make fmer 
adjustments. 
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ADDENDUM 


Some- cautions common to all three programs. 

General — 

Attention is called to the fact that the heat balance equations are essentially the 
same for all three programs. They are reduced to ten simultaneous difference equations 
and are thus characteristically sensitive to the size of the time step (DELTM(i) or 
DELTIM) selected. The programs are all run in double precision in order to decrease 
the chances of differences being rounded out to zero with consequent program blow-up 
(e.g. division by zero). 

It must be remembered, however, that other parameters can effect a problem solution. 
For example, the size of the elements selected can be quite influential in the thermal 
gradients within any given material. Also, where possible, it is recommended that abutting 
different material elements have as closely as possible the same dimension in the direction 
of heat flow. This prevents an averagmg (even though weighted) that can substantially 
alter the indicated thermal gradient across the jomt. 

Simulating a Thermal Joint — . 

In general, the thermal conductance of structural joints varies between 30 and 300 
Btu/hr °R (0.008333 and 0.083333 Btu/sec“R) where the conductance, c, is 

c=-!^ (Al) 

Usmg this definition and the typical joint conductance values, it is possible to define a 
fictitious element which will have the same effect on the conducted and stored heat as 
the real structural jomt. The thickness of such an element is 
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Xeff = ~ (A2) 

where k = thermal conductivity of fictitious joint material. (Btu/ft sec °R) 

A = contact area of the joint (normal to heat flow) (ft^) 
c = joint conductance (Btu/sec °R) 

Note that in this definition one can arbitrarily select air as the dummy element which 

represents the joint. Then the thermal conductivity of air (0.0000072 Btu/ft sec "R) 

will be given this element and the resulting element thickness, Xgff, will be correctly 

defined by Equation A3. However, the heat capacity ((PCp)air = 0.039 x 0.24 = 0.00936 

Btu/ft^ “R) of air is negligible compared to that of common structural maten^s, ((PCp) 

\ 

alum = 170 X 0.23 = 39.1 Btu/ft^ °R). Thus, the conductivity of the dummy element 
conforms to that of the joint defined conductance (30 to 300 Btu/hr °R) but the heat 
stored term has very little effect upon the overall heat balance. Note that for the pur- 
poses of use in the subject programs the area, A, is assumed equal to 1 square foot. 
Equation A2 then becomes 

Xetf = -T (A3) 

from which the variation of Xj-gf is 

'< Xgff < ^ (A4) 

0.08333 0.00833 

or, for air as the dummy element, 

0.0000864 < Xgff < 0.000864 (A5) 

where Xgff is in feet. 

In this manner, the probable extremes of dummy element thicknesses that represent 
a thermal joint are defined. Judgement must be used as to which extreme should be 
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chosen for design. Generally, it makes sense to use whichever extreme yields the most 
severe condition as the design case assuming, of course, that special knowledge of the 
joint conductance for the case in point is not available. Note that when possible, the 
Xgff should be divided m half and two dummy elements of thickness (Xgff/2) used-. This 
decreases the effect of the property discontinuities at the material-change locations. 
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CAUTION 

The programs of sections 1 and 2 of this report represent explicit solutions of the 
heat balance equations and, as such, are reliable and easy to use. It cannot be over- 
emphasized, however, that NQLDW040 should be considered as nothing more than a 
suggested approach until appropriate test or flight data become available to demonstrate 
its validity- Any predictions derived from the program prior to such demonstration will 
be of very questionable validity The strong reliance upon the judgment of the user to 
obtain meaningful results from the program should be recognized as a continuing hazard 
in its use. 
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Figure 1-2. Typical 10-Element Structural Arrangements. 
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MOTE 

ELEMENT SECTION AREAS ARE MEASURED 
IN A PLANE NORMAL TO PAPER AA4 IS 
MEASURED BETWEEN THE TWO VERTICAL 
SOLID LINES, AA5 BETWEEN THE TWO 
DASHED LINES THE "REDUCED" AREAS 
ARE ALWAYS ENTERED AS AA1, AA2, AA3, 
ETC JF THEY DIFFER FROM REAL AREAS 
AREF1, AREF2, ETC ARE THE RATIOS OF 
REAL AREA/REDUCED AREA 


qRADlNTERNAL - 

« 

SOLID LINES = REAL PHYSICAL BOUNDARIES 
DASHED LINES = AREAS USED FOR CONDUCTIVITY 

CALCULATIONS (AN APPROXIMATION) 


Figure 1 -4. Element Geometry for Problems Using Reduced Areas. 
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X = NET HEAT RATE TO SURFACE 

(A) IF IJK= 0 (RECESSION RATE IS INPUT AS FUNCTION OF NET 

HEAT RATE TO WALL) 

Y = RECESSION RATE (FT/SEC) 

X = NET HEAT RATE TO WALL (BTU/FT^ SEC) 

(B) IF IJK = 1 (EFFECTIVE HEAT OF ABLATION IS INPUT AS A 

FUNCTION OF NET HEAT RATE TO WALL) 

Y = EFFECTIVE HEAT OF ABLATION (BTU/lbm) 

INTERPOLATION SCHEME (LINEAR) 

• 1°AHW-X[,I1^VI.) 

FOR SAMPLE: 

Y = “^{ 3 } • [QAHW-X(3)] +Y(3) 

NOTE THAT QAHW IS THE ACTUAL HEAT RATE (NET) TO THE WALL FOR THE 
GIVEN PROBLEM 

Figure 2-1. Interpolation Scheme. 
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Figure 2-2. Input Format For NQLDWl 17 (Continued) 


ORIGINAL PAGE IS 
OF POOR QUALITY 





THIS AREA REDUCTION RESULTS IN A LOSS OF ACCURACY OF THE SOLUTION AND SHOULD 
ONLY BE CONSIDERED AS "an APPROXIMATION 


THE SECTION AREAS ARE REPRE- 
SENTED BY LATERAL DIMENSIONS 
IN THIS SKETCH i e. THE DIMENSION 
NORMAL TO THE PLANE OF THE 
PAPER IS ASSUMED TO BE UNITY 


ELEMENT 

NO. 



INPUT FOR ABOVE ARRANGEMENT 


INPUT PARAMETER VALUE TO INPUT 


AREF(t) VALUE 


AA1 

AAl REDUCED 

AA2 

AA2 REDUCED 

AA3 

AA3 ACTUAL 

AA4 

AA4 REDUCED 

AA5 

AA5 ACTUAL 

AA6 

AA6 REDUCED 

AA7 

AA7 REDUCED 

AA8 

AA8 REDUCED 

AA9 

AA9 ACTUAL 

AA10 

AA10 ACTUAL 


AA1 (ACTUAD/AA1 (REDUCED) 
AA2 (ACTUAD/AA2 (REDUCED) 

1 . 

AA4 (ACTUAD/AA4 (REDUCED) 

1 . 

AA6 (ACTUAD/AA6 (REDUCED) 
AA7 (ACTUAD/AA7 (REDUCED) 
AA8 (ACTUAL)/AA8 (REDUCED) 

1 . 

1 


NOTE THAT IF AA(i) REDUCED EXISTS, IT IS ALWAYS INPUT INTO CARDS .16 
THROUGH 19. IF AA(I) REDUCED DOES NOT EXIST, ENTER AA(i) ACTUAL 
WHEN AA(i) REDUCED IS ENTERED FOR AN'eLEMENT. AREF(i) IS ALWAYS 
ENTERED AS AAti) ACTUAL/AA(t) REDUCED IF AA(i) ACTUAL IS ENTERED 
AS INPUT, THEN AREF(i) IS ENTERED AS "1 " 


Figure 2-3. Method of Handling Varying-Area Elements 
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ASLATIVE 

MATERtAL 


STEEL 


5TEEL 

— h- 

STEEL 

— h“ 


ELEMENT 1 SURFACE EMISSIVITY = 02 
DELX = CUBIC ELEMENT SIZE = 0 001 FT 
D ELTIM = TIME STEP = 1 SEC 
EP2= EP3 = 0, TINNER = 540°R 


ABLTM = 1200°R (TEMP ATWHICH MATERIAL ABLATES) 
XA1 = 0 020833 FT,AA1 = 1 Ft2 


XA2 

= 0 

001 FT, 

AA2 

= 1 

FT2 

XA3 

= 0 

001 FT, 

AA3 

= 1 

FT2 

XA4 

= 0 

001 FT, 

AA4 

= 1 

FT2 

XA5 

= 0 

001 FT, 

AA5 

= 1 

FT2 

XA6 

= 0 

001 FT, 

AA6 

= 1 

FT2 

XA7 

= 0 

001 FT, 

AA7 

= 1 

FT2 

XA8 

= 0 

001 FT, 

AA8 

= 1 

FT2 

XA9 

= 0 

001 FT, 

AA9 

= 1 

FT=* 

XA10 

= 0 

001 FT, 

AA10 

= 1 

FT2 


PROBLEM 1 (1JK = 0) 

Y - DX (i) (FT/SEC) X = QDOTT (i) (Btu/FT^ SEC) 


PROBLEM 2 (IJK= 1) 

Y = QSTAR (i) iBtu/tbml X = QDOTT (i) (Btu/FT^ SEC) 


0 00001 

0 

50 

0~ 


0 00002 

10 

240 

10 


0 00004 

20 

335 

20 


0 OOOD6 

30 

350 

30 

-NOTE 

0 00008 

40 

485 

40 


0 00010 

50 

650 

50_ 



NPTS = 6 


HEAT PULSE 


TIME ■ QDOTlji) HR EC 


0 

0 

130 

1 

1 0 

144 

4 

184 

350 

6 

27 7 

680 

10 

16 0 

860 

12 

84 

805 

15 

42 

770 

20 

32 

745 

25 

20 

700 

29 

1 2 

630 


NOTE NPT1=10 


Figure 2-4 Two Problems Usriig Ablative-Surface Input Data 
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Figure 2-5, Method of Handling Large Ablation-Material Losses 
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SIDE VIEW 

NOTE BAYLINERf<0 4* (ce= ABSORPTIVlTY,e = EMISSIVITY) 
€ 

♦[FROM PG 2-l;l, REFERENCE C7] 


Figure 3-1 . Location of Payload Box Within the Orbiting Vehicle Cargo Bay. 
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SUR'FA'CE'"D" 

(END) 



THE ANALOGOUS ONE-DIMENSIONAL "CONDUCTION DISTANCE" (X MEAN) IS 

XI + X2 + X3 


X MEAN = : 


(FT) 


SURFACE AREA = 2A = 2(Zl)(Z2) + 2(Z2){23) + 2(ZT)(Z3) 
V=(Z1){Z2)(Z3) (FT3) 


Figure 3-2. The Payload Box (Derivation of XMean, the Average “Box Center” to “Box 

External Surface” Distance 
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ORIGINAL 
OR POOR QUALITY' 



PAYLOAD BOX 


MATERIAL "M" 


PHYSICAL 

MODEL 


HEAT SOURCE = QDOTT(i) 
(INTERNAL POWER) (EQ 25) 


XMEAN 

(EQ23) 


1 X MEAN/5 


X MEAN/5 


X MEAN/5 


4 X MEAN/5 


X MEAN/5 


THERMAL 

MODEL 
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Figure 3-4 Input Format For NQLDW040 





ON 


caODASD SPACE PLICHT CENTER 
FORTRAN CODING RECORD 


FROQRSM NQLDWO 40 I- 2 

PUNcumcp 

M$TRUCTION$ 

' ORAPHIc' 

n 







PACE 2 OF 3 

PROQRAMMBR 1 CATE 

PUMCH 





□ 



CARO ELECTRO NUMBER* 



PORTSAK STATEMENT 




HE PR Nffd 


Biyissaffiii&Baisifia 












UT0F 


ri 


EAqH 


MEsri 


|>rt 08 LEMT 


W 


Tl 


INSUIM 


EPS 


PIaITB HA 0 ltl 0 M.VyH 


ABSpffiPnVltY^ 


Ai-w'' 


EMI^I 


wpsr<” 


[ON 




dpfcptilymoBu 




N0_&fl 




NblE tJPTS#410l 


pumB 


M 


Na 


F SURRACEh'PVUHl CH BUMENThdiaRADIAT NG ASM 


PRIM 


iNihRUTiMk pH pttdBllEk 


icHfethte 


MfiqR 


H5I 


1 


90 


OF OTIM 


SfliSBglSia!Sa<S!IiS 


Jli 


li 


1!: 


■' bft J kk 6 X bBLriiti'isgcbWDS 




CAFiD 






MOTE 




KM 


rhptsb 42b, 


wS 


km 


NV0 


PAY 




IpgLru^iii 


m 




PUrPA 


ii 




]d» ™ ^ « Ti 


iibEiy: 


M 




W1 


in THa spijARi N SBok-Bji 5 i il 


2® 


TtSBC 


bSM 


m 




rai 


MAkbit 


sm 


Em 


eM 


bflypy 


ayjjlf^feLfeliEijTi T^bIpIs KA 




CPBFFICIBNtslOF THE RMAU cbNDUdTjVITY QF IVIRTtLS 


EMI 


MIMIT 






m Qi'M 




kvaa 


M 






a 




M 


ALSO 


IWEl 


U 3 T 


BVE 


WlWEI 


M 


epA' 




m 


4 


!F mAlTA PIER 


»s 




m 


RAL 


F 








ilk 


Nvw 








Ttdi 


Rsi: 


19 


18. 


H 




Ip 


ail 


ip 


ted 




OFWHK^ 




CPA 


rH qi.|r(ic | 

; ICBBj ~ 


AS 47 




1 ;^ 






DELTIM 


THA 


THE 




jit 


TWI 




DATl 


KJK 


APP 


EtEMS,' 


ELEM.PII 


LM B 


ROPRIATE OE 


n 


IAE0T 


TIME 


C 0 U 


m 


4 m 


UeMe 


FpsEri iPHpM; 


EBS. 


MstaE 


rripRESPRiN'nEp qutiN 


CBJ 


m 


pip 






NTS N-)o 


0|«E 


ON 01 


PTi 


KTo 


ER M 


■M 


W HEW 




RHplO 


NdicAitFbfLMid^® 


Eff Bl 


Ki 


?PP 


FM 


IeHti 




SPB 


|> liTM C ^1 EH% '^Ei TO AirUHl IS 


m 


EIW 


LTM 


aoPBiftmpl 


ijk' 






c« 




M 




mn 


FI 




'CpBFfiqiBN' 


OEFfltlEN 


CM 


a4 


OEHST 


CUBA- 


BN 


!kAi 




OALfcii 


WjILL $E 


oAl 

7 7^ 


jr2J3_4 r5,Li7_B_ 9 TO^ll I? la 1A IS »A I7~lfl 10 20 21 22 M ?4 as 26 27 28 ?9 30 31 32 33 34 3i ~36 S7 sfc 39 *2 ^4? 44 45 46 47 49_gQ >1_5ajs3_54 35^ 

«spce<irit/4d) 




lADE 


OL iFNFn'S4>d,pBLtlMVVIU 


m 


ira 


Mlt 




m 


l'toIo oKijO :s 


m 






ESQF 


Pf Bl 


INT 


12 , 


Bl 


|R$F|t 4 HMu| 


(BtTH/BTBBC' 


LAT 


UtE 




CP 2 




Ell EM BN 


|LI .M 

“Cif 




PBirpTfedd 


57 Sft A9 


m 


NS 


VH8U\tlliww‘l 


HE UINEAN 




NNT 








MS 


MPPJlYZl 




T' 








m 


HtS 


IS 


M 


EtM 


m 


- DMA 




TBE 


llMi 






enteb 


SPECIFIC HEAT 


MS 




iris|( tlBlll|/pTP 




w 


PNM 


PB 


NPUctIviTV 


Etc 


ET( 


:?lF.<kB|4MF4M 


lEWMKl 


>S|73 74 75 ?S n~TII?S«S 


iMi 


IDENTJFICATION 

SEQUENCE 


M 






,EllTI 


teawtio 


S4 si si st ;li ?l Vaba 74 7S 76 77 7« 7Teol 


MBS 


ECU 


AWALPOO 




IHEN 


m 


SEb& 


m 




m 


isim'is 


TB 


Ai |"1 '■ 


AtiPN 


m 


m 




slf 


m 


n 






o o 


Figure 3-4-. Input Format For NQLDW040 (Continued) 
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Figure 3-4. Input Format For NQLDW040. (Continued) 



















EFF AREAOF CYL ENDS = «d‘‘ 

EFF AREA OF EACH SIDE = Sx 

THESE EFFECTIVE AREAS WILL BE USED IN THE HEATING PROGRAM 
-NQLDW040^ 


A 


THISRECT IS THE AREA 
FOR FACES A, C, E & F 




AREAA = C= E = F = J?X 
AREAB = D = (2d)2 







,5 


**• EP2 = 0.9 
= 0 7 

EP2 = 0 5 

— EP2 = 0 3 


— “ EP2 = 0 1 


1.0 

y FlIM = 0.1 
FIN = 0.3 
^-^"^^FIN = 0.5 
,^'^FIN= 0.7 
,«^^^FIN = 0.9 



Four + (FINHE3) 


EP3 E3 = 08 TINNER 


W 1 + E3 

^ f 

( FICTITIOUS PARALLEL PLATE 


(CORRECTED E3) 

t 

1 

EP23 = 


/ 

1 1 


/ NOTE. E3 = E BAY LINER = 0.8 

— 1 



EP2 = ELEM. 10 SURFACE (IR) EMISSIVITY 


Figure D-1. EP23 Plotted as Functions of FIN for Several EP2 Values 
and EP2 for Several FIN Values. 








EQUILIBRllilVl PLATE TEMPERATURE 



Figure D-2. Equilibrium Plate Temperature vs. Surface IR Emissivity (EP2) 
for Vanous Solar Band Absorptivity Values 


71 


TEMP. IN °F 


TEQUIL 


EP2 = PLATE IR EMISSIVITY 
Oj = PLATE ABSORPTIVITY (SOLAR BAND) 


BAY "SEES" SUN 


= 09 


— ^ 


7000 SOOO 


INPUT TSRCE 


Figure D-3. TEQUIL. Flat Plate Versus Input TSRCE for EP2 = . 1 and Various oig Values. 


(EXTRAP ) 
16200“R 


NQLDW040 INPUT TSRCE VALUE 



q SOLAR 



TSRCE = NQLDW040 INPUT VALUE THAT YIELDS THE CORRECT 
FLAT PLATE EQUILIBRIUM TEMPERATURE WHEN THE 
PROGRAM IS RUN WITH SIDES A, B, C & D = 0 (WHICH 
REDUCES CONTAINER TO THE FLAT PLATE CASE) 

«s = SURFACE ABSORPTIVITY IN THE SOLAR BAND 

EP2 = SURFACE INFRARED EMISSIVITY 


= SOLAR BAND ABSORPTIVITY 


Figure D-4 TSRCE vs. cHg for Several Values Bay “Sees” Sun. 


NQLDW040 INPUT TSRCE VALUE 


580 


j 


a. = EP2 (ABSORPTIVITY & EMISSIVITY OF 
EXPOSED SURFACE) 



Figure D-5. TSRCE vs, a (= EP2) Bay “Sees” Earth. 
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FIGURE CAPTIONS 


Figure 1-1. Geometry and Components Used in Heat Balance Equations 

Figure 1-2. Typical 10-Element Structural Arrangements. 

Figure 1-3. Input Format for NWLDWl 12. 

Figure 1-4. Element Geometry for Problems Usmg Reduced Areas 

Figure 2- i. Interpolation Scheme. 

Figure 2-2. Input Format for NQLDWl 17. 

Figure 2-3. Method of Handling Varying-Area Elements. 

Figure 2-4. Two Problems Using Ablative Surface Input Data. 

Figure 2-5. Method of Handling Large Ablation-Material Losses. 

Figure 3-1. Location of Payload Box Within the Orbiting Vehicle Cargo Bay. 

Figure 3-2 The Payload Box (Derivation of X Mean, the Average “Box Center” to “Box 
External Surface” Distance). 

Figure 3-3. Physical & Thermal Models of Payload Box. 

Figure 3-4. Input Format for NQLDW040. 

Figure 3 -5 A. Method of Defining a Rectangular Thermal Model to Thermally Simulate a 
Pressurized Cylindrical Container. 

Figure 3-5B. 

Figure 3-5C. 

Figure D- 1 . EP23 Plotted as Functions of FIN for Several EP2 Values and EP2 for 
Several FIN Values. 

Figure D-2. Equilibrium Plate Temperature vs. Surface IR Emissivity (EP2) for Various 
Solar Band Absorptivity Values (o^). 



FIGURE CAPTIONS (Continued) 


Figure D- 
— ^Eigure-D: 
Figure D- 


3. TEQUIL. Flat Plate Versus Input TSRCE for EP2 = .I 

4. JISRCE. js.. OsTor. Sev.eralejg VaIues_ B.ay “Sees’’ ,Sun^ 
5 TSRCE vs. a (= EP2) Bay ^‘Sees” Earth. 



APPENDIX A 


This appendix presents a program listing of NQLDWl 12; the non-ablating structural 
heating program. In addition, two sample problem printouts are attached. The first 
illustrates the UK = 0 case m which all elements are identical cubes. The second problem 
has essentially the same input except the element-one surface emissivity is 0.8 instead 
of 0.1 and non-identical elements are introduced. 

The input printout of the problems is sufficient for a potential program user to 
input the same problem and compare his output with that given here. Unfortunately, 
not all electives in the program are illustrated. To do so would involve addmg pages to 
an already bulky report. It is felt that the cases given are sufficient to demonstrate the 
basic program and that the unillustrated electives can be mastered by carefully following 
the procedure as indicated in Figure 1-3. 


A1 



LEVEL 21.6 tOEC 72 t 


NOLDW112,THE NON~A'BLAtiNG PROGRAM 
□S /350 FORTRAN H 
HAlNi9PT=O2,UNECNT=a2,SIZE=Q0Q0K, 


DATE 


COMPILER OPTIONS - NAME= nmniUF i^u^.Lintun isa 2 .SIZE-aODOK. 

10 ELEHE§?;:?^|!S||ISfiS? 4 ltog¥ 8 f^ 
ip"i£???£'SiA?§M?=¥R«i?J 5 LgS 

EHIS « OUTER SURFACE EMISSIVITY 

density of respective element material 


ISN 

ISN 

tSN 

ISN 

ISN 


ISN 

“N 

ISN 

IS 

SN 

IS 

tSN 


ISN 

rsN 

iSN 

TSN 


C 002 

0003 

CC 04 

QC 05 

4}006 


0007 

0008 
0009 
OCiO 

%%\\ 

0013 

0014 

0015 

0016 

0 C 17 

0018 

im 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 


RMQ 1 .RH 02 THRU RHOlO » 
DENSITY IS IN tBM/FT 3 


HMNODiO 
KAI N 0020 
K 4 IN 0030 
NA1N0040 
HAINOQSO 
HAIN0060 
MAIN0070 
NAINOOBO 
HAIN 0090 
HAlNOlOO 
HAINOllO 
NA1N0120 
HAIN 0130 
MAiri0140 
HAINOISO 
MAIN0160 
NAIN 0 I 7 O 
MAlNOiaO 
HAIN 0190 
MA 1 N 0200 
NAIN0210 


ISH 0021 


T 1 I,T 2 I»ETC ^INITIAL ELEHENT TEMPERATURES ( DEG R) ^ 

U 1 #U 2 #THRU UlO ARE COEFF.S IN COND.COEFF EQ. : KaXKAfUlVwEST 
Vl»y 2 ,THRy VIO^ARE COEFF.S IN SPEC.HEAT EQ? CRlrCPA 4 Vl*TWEST 
TWEST f ESTIMATED HATT TEHPERATURg (CORRECTED BY ITERATION) 

8ia'!-as!'?„i8,”s&i",fvr 

J= NO. OF time steps 10 BE CALCULATED 
QDOT IS IN BTU/FT 2 SEC 
HREC IS IN BTU/LBN 
OUTPUT NCKENCLATURE 

QRAD(I)> HEAT radiated INTO THE HALL SURFACE (BTU/FT 2 SECI 

QAHH-AVERAGE HOT HALL AERO AND RAD. HEAT RATE INTO OUTER SURF ACEHAl NOZiO 
.OF IF NEG.» SURFACE IS COOLING) IBTU/FT 2 SEC) ^MAIN 0230 

OROUTsAVG.HEAT RADIATED FROM GLEM.I TO SPACE (BTU/FT 2 SEC) MAIN 02 A 0 

QRINTERNAL-AVERAGE HEAT RATE OUTPUT RADIATED FROM ELEMENT 10 INTO THEHAINolsO 

viKiCL^INfiR^g^?^ 4 fu/^T^‘g^C SSiMSIfg 

IJK -0 PROGRAM RUNS REGULAR CUBIC ELEMENTS HA 1 N 0280 

-1 PROGRAM USES ANALOGOUS ELEMENTS— USER MUST INPUT XAI, MAIN 0 Z 90 

AAl AnU AKcrl CARDS 

IHH »0 COLD HALL HEAT., RATES INPUT TO PROGRAM HAIKollS 

..„, 2 l,H 0 T HALL HEAT RATES INPUT To PROGRAM MAIN 0320 

that HOT HALL HEAT IN IS ALWAYS NET HEAT TRANSFERRED TO HALL HAIN 0330 
WHEN IHH =1 IF HEAT IN IS SUPPLIED ONLY BY RADIANT HEAT MAIN 03 AO 

TNOMT S?* 7 pqn ''FRSUS TIME AND LET ALL QDOTIII ^ HAINolsO 
VALUES BE INPUT AS ZERO HATNOBAn 

KK 4 *= NO. OF CEITIH'S BETWEEN PRINTOUTS MAIN 0370 

Aun^T 4 rrJJ!iscVe¥i''Ri 72 i*-®''/FT 3 ) .SP .HEAT I BTU/LBM OEGR) , HAIN 0380 

AND THICKNcSS ( FT ) OF Atl EQUIVALENT PLATE TO WHICH ELEMENT 10 HAtN 03 QO 

RADIATES.^NOTE^THAT THE INPUT TINNER IS THE INITIAL TEMPERATURE HAINOAOO 

DELTIH IS THE CALCULATION TIME STEP (SEC), CONSTANT IF NPTSA = 0 
' if »' 5 ReATER..THAN 0 1 irCANNQT * 5 e"gREATER THAN 1 ^ 

= OELTHU) and 1 NPUT„NPTSA,.PAIRS OF HTIHEd), 

DELTHIII. IF NPTSAa 0 ,N 0 ENTRIES OF HTI HE 1 1 ) ,DELTH( I ) ARE 
nADc • 

IMPLICIT REALP 8 IA-H, 0 -ZI n«. 

IRADDIIOO j ff DELTMl lOltUTINE ( 10 ) MATM 04 <>a 

gIMENSiGN })DOTUOOO),HReC( 1000 )tQRAOtlOOO) MAIN 0500 

-- REAL 44 TITLE( 20 > ^ HATN 0510 

17 READ( 5 .Z 5 ,END=Sa 05 >TITL 6 , MAIN 0520 

1 J.EP 2 .EP 3 .TINNER,AE,BE,T 1 MQ,EMI 0 , HAINoiio 

l 5 S{'SD 84 ’< 5 £R 2 '^SiS 5 ^iS!Sri>‘!^Sl><SSs*‘<lA>‘l<-‘AF 10 I-'RH° 2 jlRHQ 3 ,RHOA,RHD 5 ,RHAIN 05 AO 
3 HO 6 .BK 0 T,RH 08 ,RHO 9 ,ftH 0 l 0 ,CPA,CPB,CPC,CPD,CPE,CPF,CPG,CPK,Cpf,CPJ,TMAIN 055 O 
4 lIfT 2 ttT 3 I«T 41 tT 51 « T 6 I* T ■ 1 1 T 6 1 • T 9 I .TlOI tOELX.DELTI M« HAIND 5&0 

‘REA 6 (^^SglRH 2 ! 8 :cl!s”¥&'’'^^^ «*»N 0580 

80 FORMAT 13012 . 6 ) 

REA 0 I 5 ,T 9 ) (XTIME(JJ) , 00 QTT(JJ),JJ= 1 ,NPTS 1 ) 

5 IJH l' 22 l 5 ?Ii!)iH'ii*u>iFccuj),jj»i,NPTS 2 ) 

•OIAUDIJU) ,JJd,NPTS 3 ) 

618 CONTINfiE” “^TIMS I J J) ,DELTH< JJ) , UJ= 1 ,NPTSA) 

79 FQRHATjlolZ’.Al 
25 FORMAT ( 20 AA 

^HRITEli'tl) 

HRItI( 6 ,’ 600 ) 

600 FORMAT (// 2 X,* INPUT DATA’) MAINDT 20 

iSf*Iunl*o 2 nl''sIni°&£tlJ°*SRJ>J 5 SA-’‘SUrXRD,XKE,XKF,XKG.XKH,XKI ,XMJ,RHHAIN 0 T 30 
iSi’r oc^JlSf!°? 5 B*^PB?"SK‘*?? 9 *T 5 ?°jT?™ 8 ,RHg 9 , RHOlO, CPA, CPB, CPC, CPO.CHAINOTAO 
2 PE»CFFi Cf 6 *CpH.CP If CRJi Tl If T 21 # 731 * 741 # 151 »T 6 I *T 7 I •Tal# T 9 I # TIOI .DHMAINDTSO 
3 LX# OEIT IH# U 1 .U 2 # U 3 f 04 * 1 ) 5 * U 6 * U 7 # U 6 «(l 9 f ulo# vl# V 2 W 3 (^ 4 #vlf V 6 * V 7 ■ vS*VHAIN 0760 

601 FORHAT </ 2 Xt « J«*I 3 f 3 Xf ' T IMG*’ D 10 . 4 , 3 X# • EMI 0 ** 010 . 4 / 2 X# ' XKA»* 010 * 4 , 3 MAIN 0780 


MAIN 0410 
MAIN 0420 
MAIN 0430 
MAIN 0440 
MAIN 0450 
HAIN 0460 
HA I NO 470 


MAIN 058 O 
HAIN 0590 
HAIN 0600 
HAIN 06 X 0 
MAIN 0620 
MAIN 0630 
MAIN 0640 
MA 1 N 0650 
MAIN 0660 
MAIN 067 Q 
MAIN 06 aO 
HAIND 690 
HAIN 0700 
KAI NOT 10 
HAIM 0 T 2 O 


77.220/15*45,55 



M0LDW112,THE NON-ABLATING PROGRAM rcONTjNUED) 


ISU 0C22 
15^4 CC23 
ISN CC2^ 
I5N OCZS 
ISN 0026 
ISN 0027 
ISN CC28 
ISN C029 

ISN 0C30 
ISN 0031 

ISN 0C32 
ISN 0033 
ISN CC3A 
ESN 0C35 
ISN 0036 
ISN 0037 
ISN 0C38 
ISN CC39 
ISN 0040 
ISN QC41 
•ISN 0042 
ISN 0043 
ISN CC44 
ISN CC4S 
ISN CC46 
ISN CC47 
ISN 0048 


ISN CC44 
tSN 0C5O 
!SN CC51 
ISN 0CS2 
ISN 0033 
ISN CC54 
ISN 0035 
ISN CQ56 
ISN CC57 
ISN 0C36 
ISN 0054 
ISN 0060 
ISN 0C61 
ISN 0C62 
ISN CC63 
ISN 0064 
ISN 0065 
ISN 0C66 
ISN 0067 
ISN 0068 
ISN 0C69 
ISN 0C70 
ISN CC71 
ISN 0C72 
ISN 0073 
ISN CC74 
ISN 0C75 
ISN 0076 
ISN 0C77 
ISN CC78 
ISN 0C79 


*XKB-*010.4,3Xr •XKC=*OlO«4.3Xf * XKO»*OL0.4f3X,*)CKE**D10.4/2X,»XKFHAIN0790 

‘ ' * ’ 3X,'XKIsi«D10«4t3X*»XKJ**DlO.MAIN0800 

RHQ3s'DlO*4t3X«*RHQ4s' 010«4«HAIN0810 

— — 3XHAIN0820 

'CHAIN0830 
DIHAINOS^O 
3XHAIN0850 
~ HA1N0860 
HAIN0B7O 
HAtN0880 



66*4,3X»«EP3='*0l0.At3X*»TTNNER = ^D10.4,3X,ME»<O15*a,3X, Be«»Dl5.8*3MAIN0930 
7XrMJK** I1,3X,* IHHa*li/3X,*NPTSla* I3,3X ♦’NPT$2 b» I3f 3Xi * NPTS3** I3»3MAIN0940 
lX,*NPTS<ia* fI3,3Xi»KK6«* , KArN0950 

WRITE 1 6.615) RHaiN.CPIN.TAUlN ^ ^ HAIN0960 

61S FORHAT(/3X,*RHOlNaSDlA.6f 3Xt»CPlNsS014.6,3X,*TAUlNa* tDl4,6) KAIN0970 

TlMEsTIKO HAIN098O 

I l»0 HAIN099Q 

1*0 HAINIOOO 

KK5=1 - KAINlOlO 

1F{IJK)5299529f BOl HAIN1020 

801 READ(5»lQ0)XAltAAl.XA2tAA2tXA3fAA3tXA4»AA4iXA5»AA5iXA&fAA6vXA7tAA7MAIN1030 
lrXABTAAB«XA9»AA9.XA10*AAL0 HAINIOAO 

LOO FORMAT (5014.6/501 A. 6/6D1 A. 6/5014.6) MAINIOSO 

READ(5i 120 )AR6F1. AREF2, ARET3* AREF A,AREF5, AREF6.AREF7t AREF8 t AREF9, AMAIN1060 
IREFIO KAIN1070 

120 FORHAT(5014.6/5D1A.6) KAINIOSQ 


VAl-XAl^AAl 
VA2=XA2*AA2 
VA3»XA3*AA3 
VAA«XA4*AA4 
V A5®XA5»AA5 
VA6=XA6*AA6 
VA7-XA7*AA7 
VAB«XA8*AA8 
VA9=XA9*AA9 
VA10sXAlO<^AA10 
XE»DELX 
AX»0£LX*DELX 
VE^AX^DELX 
XXsXE/AX 
WRITE! * 

101 FORMAT 

1. 6.3X**VA^=’ LiLH.O/ 

!• VA9s*0lA.6,3X.*VA 
2A.6,3X.<XX=*D1A*6) 

529 WRITE(6.5A0) 

5A0 F0RMAT(/8X»* XTTME< ,15X, • OOOTT* > 
IFUJK)730t730f731 

730 XAl*l. 

XA2«I. 

XA3-1. 

XAAsl* 

XASsl. 

XA6«1. 

XA7=1. 

XAe^l. 

XA9=1. 

XA10=l. 

731 CONTINUE 

DO 370 UJ*l,APTSl 
XTaXTIHE(JJ) 

XQsQDaTT(JJ) 

MRlTE(6t5Al)XT*XQ 
541 F0RHAT(4Xy014.6t6X«D14.6) 

370 CONTINUE 
WR1TE(6*5A2) 

5A2 FORMAT (/8X.*VT!HE*,15X#*HRECCM 
OO 371 JJ»1,NPTS^ 

YT«YTIME(JJ) 

XM»HRECC(JJ) 

WRITE(6,5A1)YT,XH 

371 CONTINUE 
WRITE(6tSA3) 

543 F0RHAT(V8X*»ZTIPe» tl5Xt* CRAOD» ) 
00 372 JJ=1,NPTS3 
ZT=ZTIHE(JJ) 


HAINIOOO 
KAlNllOO 
HAlNlllO 
HAIN1120 
HA1NI130 
NAINI140 
HAIN1L50 
HAJNIUO 
HAIN1170 
HAINlIBO 
HA1N1190 
HAIN1200 
HAIN1210 
HAIN1220 
XX HA1N1230 
OI4HAIN1240 
3XfHAIN1250 
~01NAIN1260 
HAIN1270 
HAIN1280 
HAim290 
NAIN130O 
HAIN1310 
HA1N1320 
HAIN1330 
HAIN1340 
HA1N1350 
HA1N1360 
HAIN1370 
HATN1380 
MA1N1390 
KAIN1400 
HAIN1410 
KAIN1420 
HAIN1430 
HAIN1440 
HAIN1450 
HA1N1460 
MA1N1470 
KAI N1460 
NAIN1490 
HA1N1500 
MAIN1510 
HA1N1520 
HAEN1530 
HAINL540 
HAIN1550 
MA1N1560 
KAIN1570 
HA1N1580 


A3< 


PAGE 002 


ORIGINAL PAGE IS 
OF POOR QUALITY 



NQLDW112,THE NON-ABLATING PROGRAM [CONTINUED] 


tSN CC8D 
ISN 0C81 
ISN 0082 
ISN 0083 
ISN CC84 
ISN 0085 
ISN CC86 
ISN 0C87 
ISN 0088 
ISN CC89 
ISN 0C91 
ISN 0C92 
ISN CC93 
ISN 0C95 
ISN 0096 
ISN CC97 
ISN 0C99 
ISN 0100 
ISN 0101 
ISN 0103 
ISN 0104 
ISN 0105 
ISN 0107 
ISN 0108 
ISN C109 
ISN 0111 
ISN 0112 
ISN 0113 
ISN 0115 
ISN 0116 
ISN 0117 
ISN C119 
ISN 0120 
ISN 0121 
TSN 0123 
ISN 01Z4 
ISN 0125 
ISN 0126 
ISN 0127 
rSN 0123 
ISN 0129 
ISN 0130 
ISN 0132 
ISN 0134 
ISN 0135 

ISN 0136 
ISN 0137 
ISN 0138 
ISN 0140 
ISN 0142 
ISN 0143 

ISN 0144 
ISN C145 
ISN 0146 
ISN 0148 
ISN CISO 
ISN 0151 

ISN 0162 
rSN G163 
ISN 0154 
ISN 0155 
ISN 0156 
ISN 0158 
ISN 0159 
ISN 0160 
ISN 0162 
ISN 0163 
ISN 0164 
ISN 0166 
ISN 0167 
ISN 0168 
ISN 0170 
ISN G17L 
ISN 0172 
ISN 0174 
ISN 0175 


GO TO 326 


60 TO 328 


ORD®CRADDIJJ> 

WRITEI6,541)7T,0RD 
372 continue 
TIHS=TIH 0 
QDOTU) = OODTTa) 

HR6Cm»HRECC(l) 

QRADIDsCRADDIl) 

00 400 Ia2«J 
lFINPTS4>319t320.3l9 

319 IPITlHE.GE.whl'6(2n 60 TO 321 
OELTIHsOeLTMIU 

GO TO 320 

321 IFtTlME.GE^HTIPEOn GO TO 322 
OeiTiHaOELTMIZ) 

GO TO 320 

322 IF(TtM€*66.MTIfe<4l) GO TO 323 
DELTIM=0ELTHI3) 

GO TO 320- 

323 IFaiME.GE*HTIM6(S)l GO TO 324 
OELTIHsOELTMIAl 

GO TO 320 

324 IF(TIM6»GE»HTIREI6|) GO TO 325 
DELTIM=DELTH(5I 

GO TO 320 

325 IFITlME.GE.HTlPElTn GO TO 326 
0ELTIH-D8LTHI6) 

GO TO 320 

326 IFtTIME.GE.WTIPEISn GO TO 327 
0ELTIH=DELTH(7) 

CO TO 320 

327 lFITIHE,GE,WTINE(9n 60 TO 328 
DELTIH=DELTM(8I 

60 TO 320 

328 IFITIWE.GE.HTIFEUO)) GO TO 329 
DeLTlH«DELTM(9l 

6G TQ 320 

329 OELTlMsDELTMIlQ) 

320 CCNTINUE 

tihe=tihe+delttk 

JJ-0 

00 401 KalfNPTSl 

IFITIrtE.GE*XTINElKl.ANO«TIHE*LT.XTlME<K+ll > JU=K 
IFUJ.NE.OI GO TO 402 

401 CONTINUE 

402 OOOTU )=((QDOTT(JJ+n-QOOTTlJJ) } / ( XT IHE U J + 1 )-XTtM6 U J » I)’*! TIME- 
IIME(JJ) KODOTTI JJ) 

JJ=0 

DO 403 K=1»NPTS2 

IF(TIMe«GE*YTIMEIK),AND.TIH£.UT,YTIHEI K+lll JJ=K 
IFIJJ.NE.O) GO TO 404 

403 CONTINUE 

-HRECCUJM/lYTIKEt JJ4-1 HYTIHEI J JJ n ♦(TINE- 

IIMGCJJ) +HR8CC(JJ) 

JJ=0 

DO 405 K=l,NPTS3 

IF(TlME*GE«2TIMEIKI,AND.TIME.LT.2TIME(KfU ] JJ=K 
1FIJJ*NE.0) 60 TO 406 

405 CONTINUE 

406 9RAD(I )*M0flADD(Jj4l>-GRAOOCJJ))/rZTl«E( Jj + l)-ZTI«Ef J jn)*ITlNE- 
lIME(Jj))-fORAOOUJl 

400 CONTINUE 
TlMe»TIKO 
1=0 

3 lF(NPTS4)6l9»62a,619 
619 IF(TIHE.GE.WTINE{2M GO TO 621 
OGLTlHaOBLTHin 
GO TO 620 

621 !F(TlHE,GEiHTlMEl3n GO TO 622 
D6LTfM=DeLT«(2J 

GO TO 620 

622 IF(TIME*GE.NTIKE<4) I GO TO 623 
DELT!H»DELTH(3J 

GO TO 620 

623 IP<nHE.GE*HTINE<5) ) GO TO 624 
0ELT1M=0ELTH(4) 

GO TQ 620 

624 IFITIME.GE.WTINElSn GO TO 625 
0ELTIM=I>ELTHI5J 

GO TO 620 

625 1FITIME*GE.HTIME(7)> GO TO 626 


HAIN1590 
MAIN1600 
HAIN1610 
HA1N1620 
HAIN163D 
HAIN1640 
NAIN1650 
HAIN1660 
HAIN1670 
FAIN1680 
KA1N2690 
HAIN1700 
KA1N17I0 
HA1N1720 
MAIN1730 
HATN1740 
HAIN1750 
HA1N1760 
PAIN1770 
HAIN1780 
MAFN1790 
FAIN1800 
MAIN1810 
HAINIB20 
PAIN1830 
HAIN1840 
NAIN1850 
KAIN1660 
HAIN1870 
MAIN1880 
PATN1890 
HAIN1900 
MAINL910 
KAIN1920 
HATN1930 
HAIN1940 
NAIN1950 
HAIN1960 
HAIN1970 
^AIN19.B0 
MAIN1990 
MAIN2000 
NAIN2Q10 
MAIN20ZO 
XTHAIN2030 
' HAIN2040 
HAIN2Q50 
MAIN206D 
NAIN2070 
NAIN2060 
HAIN209Q 
•YTHA1N2100 
HAIN2110 
MAIN2120 
PA1N2130 
HAIN2140 
MAlNZiSD 
HATN2160 
2THAIN2170 
HATN2180 
HAIN2L90 
MAIN2200 
MAIN2210 
MAIN2220 
KAIN2230 
MAIN2240 
PA1N2250 
MAIN2260 
MAIN2270 
HAIN2280 
KAIN2290 
MAIN2300 
PAIN2310 
NAIN2320 
MAIN2330 
NAIN2340 
HAIN2350 
HAIN2360 
PAIN2370 
HAIN23B0 


A4 



NQLDW112,THE NON-ABt-ATING PROGRAM (CONTINUED) 
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ISN 

0178 


DELTIH=DELTM6) 

KA1N2390 


ISN 

0179 


GG TG 620 

HA1NZ400 


1SN 

0180 

626 

IFITIME.GE.WTIMEIO) ) GO TO 627 

HAIN2410 


ISN 

0182 


DELTIH=DELTI'f7) 

MAINZ420 


ISN 

0163 


GO TO 620 

HATN2430 


JSN 

OIS^ 

627 

IP(TIHE*GE*HTIME(9)) GO TO 628 

HAIN2440 


ISN 

0186 


DELTlK=.DELTK(a) 

HAINZ450 


ISN 

0187 


GG TO 620 

MAIN2460 


ISN 

0188 

628 

tF(TIME.GE.HTIHEClO) ) GO TO 620 

RAIN2470 


ISN 

Q190 


0ELTIH=DELTP(9) 

HAIN24B0 


5N 

C191 


GO TO 620 

MA1N2490 


SN 

0192 

629 

DELTl«=DELTHnO) 

NAIM2500 


SN 

0193 

620 

CONTINUE 

HAIN2510 


SN 

0194 


T1HE»TIHE+0ELTIH 

HA1N2520 


SN 

0195 


EHIS=A6*TII**2+BE6T1I+EHI0 

HAIM2530 


SN 

0196 


AA=EKIS-1. 

HAINZ540 


ISN 

0197 


IF(AA.GE.0.>EHIS=.99 

HA1N2550 


ISN 

0199 


rF(EMIS.LE.0,)E«IS=.01 

HAIN2560 


ISN 

0201 


I«l + X 

MA1N2570 


ISN 

0202 


acH"(qooTtn+aDOTu+i n/ 2 . 

NAINZ580 


ISN 

0203 


QRADIN’IORAOtl |+qRA0(I*lM/2, 

MAIN2S90 


ISN 

G2G4 


IF( 11-114,5.5 

HA1NZ600 


ISN 

0205 

4 

IF(QCM>2D, 20,21 

HAIN2610 


ISN 

0206 

20 

IF( IHH)27,27,90 

HAIN2620 


ISN 

0207 

90 

EPIS»0. 

HAIN263C 


ISN 

0208 

27 

QROUT= < .480SE-12*EH I S*T1I**41 

HA1NZ640 


ISN 

0209 


DELTT=tQR0UT’FDELTIM)/(RHO16(CPA4Vl'>il I )»DELX1 

HAINZ650 


ISN 

0210 


TMEST=T1I-DELTT 

HAIN2660 


ISN 

0211 


OAKH=>OCNfORADIN 

HA:nZ670 


ISN 

0212 


1 1 = 1 

HA[NZ6eO 


ISN 

0213 


GO TO 9 

HA1N2690 


ISN 

0214 

21 

TH£ST=((QCH+0RADINIX(.4a05E-l2»EMISn**.25 

MAIN2700 


ISN 

0215 


1 l=l 

MAINZ710 


ISN 

0216 


QAHM = QCU *■ QRAOIN 

RA1N2720 


ISN 

0217 


GO TO 9 

HAINZ730 


ISN 

0218 

5 

THEST=(TlI+TlFI/2. 

MAINZ740 


ISN 

0219 


tFtlHH) 91,91,92 

HAIN2750 


ISN 

0220 

92 

ERIS=0. 

RA1N2760 


ISN 

0221 


GO TO 93 

HAIN2770 


ISN 

0222 

91 

EH1S=EHI0+AE*TV(EST**2+BE»TH6ST 

RA1NZ780 


ISN 

0223 


AA=EHrS-l. 

NAIN2790 


ISN 

0224 


IF(AA.GE.0.)EHTS=.99 

MAI N2 BOO 


ISN 

0226 


lF(EKIS.LE.fl.)EHIS=.01 

HA1N2810 


I$N 

0228 

^93 

QROUT= ( . 4805E-12*EH 1 S*THEST=»*4 1 

HA1N2320 


ISN 

0229 

7lZ 

1 1 = 1 

MAIN2830 


ISN 

0230 

6 

HHH=-18,+.2585+TMEST 

RAIM2840 


ISN 

0231 


IF( IHHI670,670,671 

KAINZ850 


ISN 

0232 

671 

HHH=127, 

MAIN2860 

bi 

ISN 

0233 

670 

HR= (HREtn )+HREC( I+l) )/ 2 . 

RAI N2870 


ISN 

0234 


I FI acwi 575, 576, 576 

NAIN2S80 


ISN 

0235 

575 

OAHH=OCH*tHHH/lZ7.)+ORADIN 

HAIN209O 


ISN 

0236 


TTEST=IHR+18.)/,Z68S 

RA1N2900 


ISN 

0237 


I F (TWEST-TTEST ) 420, 420, 9 

MAINZ9I0 

o v 

ISN 

0230 

420 

QAHWsgRAOIN 

HAINZ9Z0 


ISN 

0239 


GO TO 9 

PATN2930 

si 

ISN 

0240 

576 

OAHWnQCW*UHR-HHH)/(HR-127. 1 l+ORADIN 

KA1NZ940 


ISN 

0241 

9 

1CK1=XKA+U1>*THEST 

HAIN2950 

~ tr* 

ISN 

0242 


XK2=XKB+U2*T21 

KAINZ960 


ISN 

0243 


XK3=XKC+03*T3I 

MAIN2970 


ISN 

0244 


XK4=XKD+U4*T4I 

KAIN2980 

d hi. 

ISN 

0245 


XK5=XKE+U5*T5I 

RA1N2990 


ISN 

0246 


XK6=XKF+U6*T6I 

KA1N3000 


ISN 

0247 


XK7=XKG+U7*T7I 

HAIN3010 

f-* Ei 

ISN 

0248 


XKfl-XKH+Ufl^TBI 

PA1N3020 


ISN 

0249 


XK9=XKI-FU9*T9I 

HAIN3030 

Q 

ISN 

0250 


XK10=XKJ*U10*T10t 

HAIN3040 


ISN 

0251 


CP1=CPA+V1»TMEST 

KA1N3050 

!S ^ 

ISN 

0252 


CP2=CPB4V2*T2I 

HAIN3060 


ISN 

0253 


CP3=CPC+V3*T3I 

NAIN3070 


ISN 

0254 


CP4=CPD+V4*T4I 

PATN3000 


ISN 

0255 


CP5«CPE+V5*T5I 

MA1N3090 


ISN 

0256 


CP6=CPFFV6*T6I 

HAtN310D 


ISN 

0257 


CP7=CPG+V7*T7I 

HAIN3110 


ISN 

0258 


CP8=CPK4-V8*T8I 

MAIN3120 


ISN 

0259 


CP9=CP1+V94T9I 

MAIN3130 


ISN 

0260 


CP10=CPJ+V10»T10I 

PAINS 140 


ISN 

0261 


IFI IJKIT50,750,751 

MAIN3150 


ISN 

0262 

751 

XK1=XK1# (AAl/XAl )*XX 

MAIN3160 


ISN 

0263 


XK2=XK2»IAA2/XAZI6XX 

MAIN3170 


ISN 

0264 


XK3=XK3* < AA3AXA3 ) *XX 

HAIN31B0 



AS 



NQLDW112.THE NON-ABLIATING PROGRAM (CONTINUED) 
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ISN 0255 
ISN 0256 
ISN 0267 
ISN 026B 
ISN 0260 
ISN 0270 
ISN 0271 
ISN 0272 
ISN 0273 
ISN 027A- 
ISN 0275 
ISN 0276 
ISN 0277 
ISN 0278 
ISN 0279 
ISN 0280 
ISN 0201 
ISN 0282 
ISN 0283 
ISN 028A 
ISN 0285 
ISN 0286 
ISN 0287 
ISN 0288 
ISN 0289 
ISN 0290 
ISN 0291 
ISN 0292 
ISN 0293 
ISN 0299 
ISN 0295 
ISN 0296 
ISN 0297 
ISN 029B 
ISN 0299 
ISN 0300 
ISN 0301 
ISN 0302 
ISN 0303 
ISN 0309 
ISN 0305 
ISN 0306 
ISN 0307 
ISN 0308 
ISN 0309 
ISN 0310 
ISN 0311 
ISN 0312 
ISN 0313 
ISN 031A 
ISN 0315 
ISN 0316 
ISN 0317 
ISN 0318 
ISN 0319 
ISN 0320 
ISN 0321 
ISN 0322 
ISN 0323 
ISN 0329 
ISN 0325 
ISN 0326 
ISN 0327 
ISN 0328 
ISN 0329 
ISN 0330 
ISN 0331 
ISN 0332 
ISN 0333 
ISN 0339 
ISN 0335 
ISN ,0336 
ISN 0337 
ISN 0338 
ISN 0339 
ISN 0390 
ISN 0391 
ISN 0392 

ISN 0393 


XK9=XK9*IAA9/XA9) *XX 
XK5-XK5>»iAA5/XA5)*XX 
XK6°XK6*(AA6/X«6i*XX 
X K7-XK7* ( AA7/XA7) *XX 
XK8»XI<8 + (AAS/XAB) *XX 
XK9=XK9*(AA9/XA9)*XX 
XK10°XK10*(AA1C/XAIO) *XX 
IF1I-II6SO,650,750 

650 RH11»RH01*1VA1/VE)*AREF1 
RH12«RH02»(VA2/VEI*AREF2 
RH13°RH03*(VA3/VFt*AREF3 
RH19SRH09* 1 VA9/VE )*AREF9 
RHlS=RH0S*lVA5/Vt|*AREF5 
RH16=ftH06*IVA5/VEl*AREF6 
RH17»RH07*tVA7/VE)*AREF7 
RHl8«RH08*(VAB/Ve)*AREF8 
RH19=RH09*IVA9 /VeUaREF 9 
RH110=RH010*IVA10/Ve» *AREF10 

750 XK1=>IXK1AXA1*XKZ«XA2>/IXA1-»XA2 t 
XK2=(XK2»XA2tXK3#XA3V/lxA2+XA31 
XK3«IXK3*XA3+XK9»XA9f/f XA39XA9) 
XK9=(XK9*XA9+XK5»XA5>/IXA9+XAS) 
XK5°IXK5*XAS«XK6*XA6)/IXA5«XA6) 
XK6=|XK6»XA6+XK7*XA7i/f XA6*XA7) 
XK7=< XK7*XA7+XK8*XAa>/(XA7-fXA8 ) 
XK8«iXK8*XA8+XK9*XA9)/IXA8+XA9> 
XK9=(XR9AXA9*XK 10»XA1CI /C XA9+XA10) 
IFIIJK)651>651,6S3 

651 lFn-l)652,652,653 

652 RHll-RHOl 
RH12»RH02 
RH13=RH03 
RH190RHG9 
ftH15=RH05 
RH16=RH06 
RH17«RH07 
RH18=RH08 
RH19=RHG9 
RH110=RH010 


653 


Al = IXKl’»DELX»DELTIHI/2, 
2=fXKZ*DELX*DELTIK)/2. 
A3»IXK3*DELXX'0ELTmi/2. 


A9=lXK9*0ELX»0ELTIPI/2. 


A83CXK840ELXADELTIK)/2. 

A9=lXK9*DELX»DELTIH»/2. 

AlO- CP14RH11*DELX**3 
A11=CP29RH12*DFLX**3 
A12-:CP3»RH13*1)E1XP*3 
A13«CP9*RK19<iOELX**3 
A19=CP5*RK1S*DELX**3 
A15=CP5*RH16»0E1.X*'»‘3 
A16«CP7*RH17»DEIX**3 
A17»CP8aRU18«DELX«a3 
AlBs<CP9*RH19»0ELX9+3 
A19-CP10»RH110»DELX**3 
A20-(DELX**2I*CELTIK 
„ IFteP2*EP3»50fS0, 51 

50 AAZ«0. 

GO TO 52 

51 EP23 » EP2 * EP3 
EP23 » EP23/IEP2 + EPS - EP23I 


NAIN3190 
HAIM3200 
MAIN3210 
HAIN3220 
MAIN 3230 
MA1N3290 
HAIN3250 
HAIN3260 
PAIK3270 
NAIN3280 
NAIN3290 
HAIN3300 
MAIN3310 
NA1N3320 
HAIN3330 
HA1N3390 
HAIN33SO 
MAIN3360 
HAIN3370 
HAIN3380 
FA1N3390 
HA1N3900 
MAIN3910 
HAIN39Z0 
NAIN3930 
RAIN3990 
HAIN3950 
HAIN3960 
HAIN3970 
RAIN 3980 
HA1N3990 
HAIN3500 
FAIN3510 
HAIN35Z0 
MAIN3S30 
HAIN3590 
HAIN3SSQ 
HAIN3560 
RAIN3570 
HA 1193580 
KAIH3590 
HAIN3&00 
HAIN3610 
HAIN3620 
HAIK3&30 
KAIN3690 
KA1N3650 
MAIN3660 
HAIN367Q 
HAIN3600 
MAIN369Q 
HAIN3700 
NAIN3710 
MAIN3720 
HAIN3T30 
HAIN3790 
HAIN3750 
HAIN3760 
HAIN3770 
FAIN3T80 
HAIN3790 
MAIN3800 
HAIN3SI0 


IFTlJK196o;960,91i ■■ ' KAIN3330 

911 AAZ=EP23».980SE-l2*(tTlOI**9)-mNNER**9))*DELTIM*OELX»+2»AA10/AX HAIM3890 
OTTT-AAZ/1RHOIN*CPIN*TAUIN*IOELX»*2J*(AA10/Axn MAIN3850 

GO TO 52 . HAIH3SA0 

900 AA1»EP23*.9805E-12*( IT101**9 t-l T 1NNER**9) )+DELTIM*DEUX**2 HAIN3S70 

OTTT>AAZ/(RK0IN«CPIN*TAUlN*tDELX**2)l , HAIN3S80 

52 F1«A19A10 HAIN3890 

TINNER-TINNER+OTTT HAIN3900 

F2«A1 NAIN3910 

,,, IF(IJK;)550,S50,551 HATM3920 

551 «AH“AA1/AX HAIN3930 

GO TO 552 HAIN3990 

550 UAN>1. MAIN3950 

552 F3-Al*mi-T21)-A10*T1I+EH1S*.9805E-12»(TWEST**9I*A20*WAH-QAHH9A20HAIN3950 

IJWAW HAIN3970 

F9«A1«A24A11 HAINSOaO 

'AS' 


NQLDW1 12, THE NON-ABLATING PROGRAM (CONTINUED) 


pace 006 


I SN 

0344 

F5=A2 


ISN 

0345 

P6=(-A1 1* ITU-T2!14A2*(T21-T3I I-A11*T2I 


0346 

F7«AZ+A34A12 


ISN 

0347 

F8=A3 


ISN 

0348 

F9=(-A2)*(T2t-T3n+A39tT3l-T4n* 

•A12*T31 

ISN 

0349 

F10=A3+A4+A13 


ISM 

C350 

F11=A4 


ISN 

0351 

F12«(-A3I*(T3T-T41)4'A4* tT4I-T5I ; 

-A13*T4I 

ISN 

0352 

FlSsAA-^AS+AlA 


ISN 

03S3 

F14=A5 


ISN 

0354 

F15=(-A4)*(T4I-T5n+A5*(T5I-T6i; 

-A14*TSI 

ISN 

0355 

F16SA5+A6+A15 


ISN 

C356 

F17*A6 


ISN 

0357 

Fl8=(-A5»#(T5r-T6n-^A6#(T6I“T7i; 

-A15+T6I 

ISN 

0358 

P19*A6+A7+A16 


ISN 

0359 

F20=47 


ISN 

0360 

F2L=t-A6»*(T6I-T7I)+A7*(r7I-T8l 

-1A16»T7I 

ISN 

0361 

F22“A7+AB4A17 


ISN 

0362 

F23*A8 


ISN 

0363 

F24=t-A7l*(T7I-T8n*-Aa*tT8l-T9i: 

-A17*T8! 

ISN 

0364 

F25=A84-A9+A10 


ISN 

0365 

F26=A9 


ISN 

0366 

F27=C-A8)* TBI-T9 n+A9*lT9I-T10l >-Al8»T9I 

ISN 

0367 

F28aA9+A19 


ISN 

0368 

F29=C-A9)*(T9l-TlOn-A19*TlOI+AAZ 

ISN 

C369 

G1=(F2&*F29)4(F27*F281 


ISN 

0370 

G2=F23»F28 


ISN 

03TI 

G3=tF2&»*2)-(F25*F281 


ISN 

0372 

G't=lF23*G2)/G3 


ISN 

0373 

G5=IF23»G1)/G3 


ISN 

0374 

G6=F22FG4^ 


ISN 

0375 

G7=FZ0/G6 


ISN 

0376 

G8=(G5-F2A)/G5 


ESN 

C377 

G9=F21-(F20»Gfll 


ISN 

CB7B 

G10=CF20»G7)-F1G 


ISN 

0379 

Gll=G9/GlO 


ESN 

0380 

G12=F177G10 


ISN 

0381 

G13=F16+IF17tOl2) 


tSN 

0382 

G1A=F18-(F17«GU) 


ISN 

0383 

G1S=F14/G13 


ISN 

0384 

G16=G14/G13 


ISN 

036 5 

G17=tF14*G16)+F15 


ISN 

C386 

G18=(F14*G1S)-F13 


ISN 

C387 

G19=G17/G:B 


ESN 

0388 

GZ0=F11/G1B 


ISN 

0389 

G21=(F11*G201+F10 


ISN 

0390 

G22=F12-IF1UG19) 


ISN 

0391 

G23=G22/G21 


ISN 

C392 

G24^F8/G21 


ISN 

0393 

G25=£F8*G24)-F7 


ISN 

0394 

G26=F9+(F8*G23) 


ISN 

C395 

G27=F57G25 


ISN 

0396 

G28»G25/G25 


ISN 

0397 

G29=tF5»G27)+F4 


ISN 

0398 

G30=F5-tF5*G28) 


ISN 

0399 

G31=G30/G29 


ISN 

0400 

G32=F2/G29 


ISN 

C401 

G33=-F14(FZ»G32) 


ISN 

0402 

G34»F3+(F2*G31) 


ISN 

0403 

T1F=G34/G33 


ISN 

0404 

TZF=lG32»nFl-G31 . 


ISN 

0405 

T3F=JG28I-{GZ7»T2F1 


ISN 

0406 

T4F=IG24*T3FI-G23 


ISN 

0407 

T5F=G19-CGZ0*T4F1 


ISN 

0408 

T6F=tG15»r5FI-G16 


ISN 

0409 

T7F=Gll-tGl2*T6F) 


ISN 

0410 

TeF=«G7»T7FI+G8 


ISN 

0411 

T9F=£Gl-fG2*T8FH/G3 


tSN 

0412 

T10F=t CF26'FT9F)-F29)/F2a 


ISN 

0413 

HT=(TlI+TlF)/2. 


ISN 

0414 

IF(1JK>850.850.851 


ISN 

0415 

'fiSl AAY=AAZ/(DELTIH*AA101 


ISN 

0416 

GQ TG 85Z 


ISN 

0417 

850 AAY=AAZ/A20 


ISN 

0418 

852 HTT=OABStTHEST-HTI 


ISN 

0419 

3F<(WTT/WT)-. 001)61,61,5 


ISN 

0420 

61 IF<KK5-KKS)571,S71,780 


ISN 

0421 

571 IF<KJK>998,998,999 


ISN 

04 ZZ 

998 TFl=TlF-460. 


ISN 

0423 

TF2=T2F-460. 



KAIN3990 
MAINAOOO 
FAIN4010 
MAIM4020 
MAIN4030 
NAIN4040 
HAIN4050 
HAIN4060 
HAIN4070 
MAIN4080 
MAIN4090 
PAIN41Q0 
HAIN4U0 
MAIN4120 
(^A1N4L30 
KA1N4L40 
MAIN4150 
PAI N4160 
HAIN4170 
MAIN4160 
I^AI»44190 
HAIN420Q 
MAIN4210 
HAI N42Z0 
HAIN4230 
HAIN4240 
MAIN4250 
HAIN4260 
MAIN4270 
VAIN4280 
NA[N4290 
MAIN43D0 
HAIN4310 
HAIN4320 
MAIN4330 
PAIN4340 
HMN4350 
MAIN4360 
HAIN4370 
HAtN4300 
HAIN4390 
HAIN4400 
HAIN4410 
HAIN4420 
HAIM4430 
KAIN4440 
HATN4450 
KAIN4460 
KAIN4470 
KAIN4480 
MAIN4490 
HAIN4500 
MAIK4510 
HAIN4520 
HAIK4S30 
HMN4540 
HAIN4550 
HA1N4560 
MAIK4S70 
HA IN 45 80 
HAIN4590 
MAIN4600 
HMN46I0 
FA1N4620 
KAIN4630 
MAIN4640 
KA1N4650 
NA1N4660 
HAIN4670 
HAlN46eO 
MAIN4690 
HAIN4700 
HAIN4710 
HA1N4720 
HAIN4730 
KAIN4740 
HAIN4750 
MMN4760 
HAIN4770 
HAIN4760 





A7 
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I SN 

C424 


rsN 

0425 


ISN 

0426 


ISN 

C427 


rsN 

0428 


ISN 

0429 


ISN 

0430 


ISN 

0431 


ISN 

0432 


I SN 

04 33 


ISN 

0434 

770 

ISN 

0435 


ISN 

04 36 


I SN 

0437 


I SN 

0438 

999 

ISN 

0439 


ISN 

0440 

771 

ISN 

0441 

ISN 

0442 

65 

ISN 

0443 

ISN 

0444 

66 

I SN 

0445 

780 

ISN 

0446 


ISN 

0447 


ISN 

0448 


ISN 

0449 


ISN 

0450 


ISN 

0451 


ISN 

0452 


ISN 

0453 


I SN 

0454 


ISN 

0455 


ISN 

0456 


ISN 

0457 

70 

ISN 

0458 


I SN 

0459 

8005 

I SN 

0460 


TF3=T3F-A60. 

TFA=TAF-A60. 

TF5=T5F-^60. 

TF6=T6F-A60. 

TF7=T7F-A60. 

TF6=T8F-460. 

TF9=TgF-A60. 

TF10=T10F-A60. 

KK5=0 

MRITE(6,770) 

F0RHAT(/2X. 'TEMPERATURES OF ELEMENTS ARE [N DEGREES F') 
WRir£(6,65)TIPE 

WRITE<6,66)TFl,TF2,TF3,TFA,TF5,TF6,TF7fTF8f TF9,TF10.0AHW,QROUT, 
l.TINNGR 
GO TC 780 


R* ) 


KK5=0 

FGRMAT( /2X, 'TEMPERATURES OF ELEMENTS ARE IN DEGR 
WRITE{6,65(TIMG 
F0RMAT(//2X,7HTIME -F1A.6) 
WRITE(6,66ITLF,T2F,T3F,T4FfT5F,T6F,T7F,T8Ff T9F,T10F,0AHW*aRDUT^ 
It TINNER 

T2F = ' ,D12.6,3X,'T3F=' , D12 .6 ,3X , * TAF 
ID12.6/2X.’ T5F=' , Dl2 . 6 , 3X , * T6F=' , 012 . 6 .3X , ' T7F=* , D12. 6 , 3X, ' T6F= ' 
22.S/2X,'T9F = ' ,C 12.6 ,3X , ' T lOF = • , 012. 6 , 3X » ^ QAHW = ' , 0 1 2. 6 , 3X , • OROUT 
3D12.6,3X»’ QRAOINTERNAL=', 012.6/ 2X, 'TINNER STRUCTURE^' ,D12.6) 

T2I=T2F 
T3I=T3F 
T4I=T4F 
T5I=T5F 
T6I=T6F 
T71=T7F 
T0I=T8F 
T9r=T9F 
T10I=T10F 
KK5=KK5+l 
I Ft I-J + l)3,70,70 
CONTINUE 
GO TC 17 
STOP 
END 


MAIN4790 
MAIN48O0 
MAIN4810 
HAIN4820 
MAIN4630 
MAIN4840 
HAINAflSO 
MAIN4860 
MAIN4870 
MAIN4880 
MAIN4890 
HAIN4900 
AAYHAIN4910 
MA1M4920 
MAIN4930 
MAIN4940 
HAIN4950 
MAIN4960 
MAIN4970 
MAIN4980 
AAYHAtN4990 
MAIN5000 
=• .MAIN5010 
DIHA INS020 
=• ,MAIN5030 
NAINSO^-O 
HAIN5050 
MAIN5060 
MAtN5070 
MAIN5080 
MAIN5090 
HAIN5100 
MAIN5U0 
MAIN5120 
MAIN5130 
MAIN5140 
MA1N5150 
MAI NS 160 
MAINSITO 
HAIN5180 
MAIN5190 
MAINS200 


A8 



NQLDW112,THE NON-ABLATING PROGRAM (CONTINUED^ 


TEST PROBLEM NO* I RUN DN QLO NgLDW112 


INPUT DATA 


J»lCO 

XKA»0 

XKF*0 

RHOl* 

RHC6= 

CPA=0 

CPF*0 

TllaO 

T6I=0 


TIMDaO*0 
,26670-01 
426670-01 
0*1700D 03 
0*17000 03 
.P300D 00 
•23COO 00 
•5AOOO 03 
•5A00D 03 


EKIG-O.lOOOn 00 

XKBaO, 26670-01 XKC=0, 26670-01 

XKG=0 *26670-01 ” " *- 

RRQ2S0.1700D 03 
RHD7s0*l700D 03 
CPB-0. 23000 OO 
CP6«0.2300D 00 
T2I»O.5A00D 03 
T7I-=0.5A000 03 


XKH«0*2667D-01 
RHC3sO*L7COO 
RHDB^O-IVCOD 
CPC«0. 23000 00 
CPK»0.23C0D 00 
T3I»0.5ACOD 03 
TaisOiSAQOO 03 


XKD«Q, 26670-0 1 XKE=0.2667D-01 

XKIaO. 26670-01 XKJaO*2667D-Ol 
03 RHQ4flO. 17000 03 RH05»0* 17000 03 

03 RH09=0.1700D 03 ftHOlOsO*17000 03 

CPO=O*23C0D 00 CPeaO*2300D 00 

CPK«0i?300D 00 CPJ»0*2300D 00 

T4I=0.5AOOO 03 T5I*0. 5^000 03 

T9Ia0*5AC0D 03 TlOIsC. 54000 03 


OELXss0*8333O-O3 CELT IMaO.SOOOD 00 
U1*0,0 U2=0*0 

U6=0.0 U7=Q*0 

VlsO*0 V2s0*0 

V6=0*0 V7»0.0 

EP2sO*lCCOD 00 EP3-0*10COD 

NPTSl* ' 


NPTS2* 6 NPTS3= 


U3=0«0 U4««0*0 U5s0.0 

U6=C*0 U9b0.0 U10«0*0 

V3»0*0 V4=0,0 V5a0,0 

va«o*o v 9*040 vio=o.o 

TT^NER«D*540CO 03 A£s 0*0 
6 NPTS4* 3 KK6» 5 


BEs 0*0 


IJKsO IKW^O 


RH0IN= 0.1700000 03 CPIN« 0.2300000 00 TAUIN- 0.8333330-01 


XTIHE 


QDOTT 


0.0 


0.0 


O.IOOOOOD 

02 

0*2500000 

01 

0.25COOOO 

02 

0.1000000 

0? 

0.4500000 

02 

0*2500000 

01 

0.5COOOOO 

0? 

0*0 


0.1000000 

04 

0*0 


YTIMF 

0.0 


0.?2loSoD 

03 

0. ICCOOOD 

02 

0.150000D 

09 

0.2500000 

02 

0.4000QOD 

03 

O.<i5OaO0D 

02 

0.50000DD 

01 

0.5COOOOD 

02 

0.5500000 

03 

O.ICCOOOD 

04 

0. <4000000 

03 

ZTIH6 


ORADO 


0.0 


0*0 


O.ICCOOOD 

02 

O.IOOOOOD 

01 

0.25000QO 

02 

0*2000000 

01 

0.4500000 

0? 

0*1000000 

01 

0.5COOOOD 

02 

0.0 


O.ICOOOQD 

04 

0*0 



TEMPERATURES OF ELEMENTS ARE IN OFGREES F 


TIME = 0*1000000 02 

T1F30.12CB88D 03 T2F«0.1208?3D 03 

T5F=0. 1206700 03 T6F-0. 1206340 03 

T9F*0*120569D 03 TlOFstO.1205610 03 

TINNER STRUCTURE=0. 54O0O1D 03 

TEPPERATURCS OF ELEMENTS ARE IN DEGREES F 


T3F=C.120765D 03 
T7F«C. 1206050 03 
0AHWS0.216273D 01 


TIME = 0*2000000 02 

TlF*0. 2737460 03 T2FaQ ,2735430 03 

T5FaO*2?3071D 03 T6FsO. 2729590 03 

T9F*0.272756D 03 T10F»0.2727340 03 

TINNER STRUCTUREsO.5400190 03 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T3F=0. 2733630 03 
T7F=C.272869D 03 
OAHWsO. 6719800 01 


T4F«0. 1207140 03 
T6F=0.120583D 03 
0R0UTo0*5223040-02 


T4r»0.273206D 03 
T8Fa0.272e0lD 03 
0ROUT*0*124251O-01 


QRADINITERNAL=0*469638D-03 


QRADINTeRNAL-0.3636240-02 


( 


1*5 w 



TIME « 0.360000D 02 

T1F*0*616351D 03 T2FsO. 6X62220 03 

T5F*0. 6159190 03 T6FaO*61b846D 03 

T9F®0,61S714D 03 T10F»0.615699D 03 

TINNER STRUCTURE*©. 540217D 03 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T3F=0. 6161070 03 
T7F»0. 6157880 03 
CAKH*0. 5520360 01 


T4F*0.6160050 03 
TBFaO. 6157440 03 
CROUT *0*5504670-01 


QRADINTERNAL«0 .2234490-01 


TIME 


0.450000D 02 


.A9 



TlF=O,7lCAA^0 03 T2FaO, 7103700 03 
T5F*0#7102250 03 T6FBO*7aOLUBD D3 
TOFsO. 7101200 03 TIO F*0. 7101120 03 
TINNER STRUC7URe=0*5A0417C 03 


NQLDW112, THE NON-ABLATING PROGRAM (CONTINUED) 

T3FaC. 7103200 03 T4f ^0.71026BO 03 

T7F«a.7l0158D 03 T8F=0. 7101360 03 

OAKWaO. 24^1720 01 0ft0uT=0. 89 07300-01 ORA01NTERNAL»O.^W870D-Ol 


TEPPERATURES of ELEFEN7S ARE IN OFGREES F 


TIPE 


0»500000D 02 


T1F»0>726A88D 03 T2F«0*726492D 03 

T5FsO,726498D 03 76Fs0*726^99D 03 

79F=0*726499|) 03 710F«0. 726^970 03 

IINNFR STRUCTUR£a0.5A0532C 03 


73FsO*726495D 03 
T7F»C*726500D 03 
QAKKsQ.2462320 00 


TEHPERA7URES OF ELEHEMTS ARE IN DEGREES F 


T4Fs0*726i|970 03 
78FsO, 7284990 03 
QROUT-0«9?1384D- 


01 QRADINTERNALaO.4790260-01 


TIP6 = 0.550000D 02 

TlFa0-,72A3O2O 03 T2F«0.724303D 03 73F=C*72A304C 03 

T5F»0*?2A3Q6O 03 T6F«0 .72a3o70 03 77F»0. 72A307D 03 

T9FSO-72A307D 03 710F*0,72A3{J6D 03 CAHVsioIO 

TINNER STAOCTURE*0,5A0605D 03 

TEMPERATURES OF ELEMENTS ARE IN DEGRESS F 


TAFaC,72A3060 03 
78F»0.72A507D 03 
GROUT»0.9A8622C-0L 


ORADINTeRNAL*0.A7684OD-Ol 


TIME 5 0»60DOOOO 02 

TIF«0*722123D 03 72F»0 •72Z1270 Q3 T3F=G . 722130C 03 

T5F«0, 7221330 03 T6F*0 .72PL3AO 03 77FaG. 722L3A0 03 

T9F30. 7221330 03 T10Fa0,722132D 03 QAHHaO.O 

TINNER STRUCTUftfa0.5A0678Q 03 

TEPPCRATURES of elements are in DEGREES F 


TAF=0*722L32D 01 
T8Fs(3.722l3A0 03 
ORaUTs0*g39897O-Ol 


(JRAO! NT ERNAL«0 . A7297A0-01 


TIPE 


0»650000D 02 


T1F=0.7L9969D 03 TZF *0 ,7199700 03 

T5F«0.71597A0 03 T6F »o, 7 199750 Cl 

T9FaO,7L997AD 03 T10Fs0,7l997AD 03 

T1^NER STRUCTURE«0*5A075Od 03 

TEKPERATURES OF ELENENTS ARE IN DEGREES F 


73Fs0,7l9972t) 03 
T7F«C.719975D 03 
QAHh»0.0 


7AF»0, 7199730 03 
T8F=0. 7199750 03 
QROUr=0,.932832D-QL 


QRAOINTERNAL-0«A69357D-01 


TIPE s 0.7000000 02 

T1F=0, 7178230 03 T2F *0 .7178270 03 

T5Fa0.7l7B33D 03 T6F »0 .7178330 03 

T9F=0. 7178330 03 TlOFsO. 7176310 03 

TINNER STRUC7UftE-0.5AO822D 03 

TEPPERATURES OF ELPMENTS ARE IN DEGREES F 


T3F=C. 7178290 03 
T7FsQ* 71783A0 03 
CAHi«-C,0 


7AF=0. 7178310 03 
T8F»0.717833D 03 
CRCUT^0,926081C-01 


QRADINTERNAL««0.A65786D-0l 


TIPS a 0.7500DOD 02 

T1F*0. 7157000 C3 T2F *0 .7157 CIO 03 

T5Fa0.7l57050 03 T6F*0.7l3706D 03 

T9F=0.715706D 03 TIO F»0. 7157050 03 

TIANFR STRUCTUREa0.5A0893D 03 

TEPPERATURES OF ELEMENTS ARE IN DEGREES F 


T3Fs0.715703C 03 
T7FsC. 7157060 03 
0RHH=0,0 


7AFaQ.7157CAD 03 
T8F»0.715706D 03 
OR0UTs0,919393D-01 


ORADINTERNAL^O. A622600-0I 


TIPE a 0.8000000 02 

TIF«0.7L35860 03 TZFsO ,7135900 03 

TSFaO, 7135950 03 I6F *0 .713596D C3 

T9F=0. 7135950 03 TIO F**0. 7135940 03 

TINNER STRUCTURFaO.5AO96A0 03 

TEPPERATURES OF ELEMENTS ARC IN OFGREES F 


T3FaO. 7135920 03 
TTFsO. 7135960 03 
QAHVaQ.O 


TAFaO,7l359At 03 
T8FaO. 7135960 03 
QRQUT=0.9l28ilD-01 


QRAOINTERNAL»O.A58779D-Ol 


TIPE 


0.8500000 02 


TlF»0,7ilA930 03 T2F »0 .711 A95D 03 

T5F«0*7UA96D 03 T6Fb0.711A99D 03 

T9Fa0.711A99D 01 TIOFbO, 7 LI A980 03 

TINNER STRUCTURFsO.SAlOSAC 03 


T3FaO,71lA96D 03 
T7FO0.7U500D 03 
CAHW«Q,Q 


TFPPpRATURES OF CLEMENTS ARE IN DEGREES F 


TAF = 0.7UA97D 03 
TBFaO. 7115000 03 
CR0yT®0, 9062920-01 


ORADtN7ERNAL»0,A553A10-01 


A10 



NQLDW1 12, THE NON-ABLATING PROGRAM (CONTINUED) 


TIPE = 0.9000000 02 

nF = 0.7C9^10D 03 T2F=0.70941AD 03 T3F= 

T5F=0. 7C9419D 03 T6F=0.709420D 03 T7F= 

T9F=0.7C9419D 03 TIO F=0. 7094180 03 QAh 
7INNER STRUCTURF=0. 5411030 03 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T3F=C.709416C 03 
T7F=C. 7094200 03 
QAHH=0.0 


T4F=0. 7094180 03 
T8F=0. 7094190 03 
QRaUT=0.899873D-01 


QRAD1NTERNAL=0. 4519480-01 


TIME = 0.950000D 02 

T1F=0. 7073470 03 T2F=0. 7073490 03 T3F= 

T5F=0. 7C73520 03 T6F=0. 7073530 03 T7F= 

T9F = 0.7C7353D 03 T10F = 0. 707352D 03 QAI- 

TINNER STRUCTURE=0. 541 1720 03 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T3F=0.707350D 03 
T7F=C. 7073540 03 
QAHW=0.O 


T4F=0.7073S1D 03 
T8F=0. 7073540 03 
QRQUT=0. 8935170-01 


OR ADINTERNAL=0. 4465950-01 


TIME = 0.1000000 03 

TlF=0. 7C52940 03 T2F=0 .705 2970 03 T3F= 

T5F=0. 7053030 03 T6F=0 .7053030 03 T7F= 

T9F=0.7C5302D 03 T10F=0. 7053010 03 CAl 

TINNER STRUCTURE=0.541241D 03 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T3F=0. 7053000 03 
T7F=0. 7053030 03 
CAHW=0.0 


T4F=0. 7053010 03 
T8F=0. 7053030 03 
OROUT=0.887255D-Ol 


QRADIiMTERNAL=0. 4452850-01 


TIME = 0.1050000 03 

T1F=0.7C32600 03 T2F=0.703262D 03 T3F= 

T5F=0, 7C3266D 03 T6F=0.703266D 03 T7F= 

T9F=0. 703266D 03 T 10 F=0 . 703266D 03 QAI 
TINNER STRUCTURE=0, 5413090 03 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T3F=0, 7032630 03 
T7F=0.703267D 03 
QAHW=0.0 


T4F=0. 7032640 03 
T8F=0. 7032670 03 
QROUT=0. 8810570-01 


QRADINTERNAL=0.442014D-01 


O.llOOOOD 03 


T1F=0. 7012360 03 
T5F=0. 7012450 03 
TSF=0.7G1244D 03 


T2F=0. 7012400 03 
T6F=0.701245D 03 
T10F=0. 7012430 03 


TINNER STRUCTURE=0. 5413760 03 
TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T3F=C. 7012420 03 
T7F=C.701245D 03 
QAHW=0.0 


T4F=0.701244D 03 
T8F=a.701245D 03 
QR0UT=0.874948D-01 


QRADINTERNAL=0. 4387850-01 


TIKE = 0.1150000 03 

T1F=0.699231D 03 T2F=0 .699 232D 03 T3F= 

T5F=0, 6992360 03 T6F=0. 699 2370 03 T7F= 

T9F=0. 6992370 03 T10F=0. 6992360 03 QAl 

TINNER STRUCTUREsO. 5414430 03 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T3F=0, 6992340 03 
T7F=C. 6992380 03 
QAHH=0.0 


T4F=0.699235D 03 
T8F=0. 6992370 03 
0ROUT=0. 8609000-01 


QRADINTERNAL=0. 4355940-01 


TIME = 0.1200000 03 

T1F=0.697235D 03 T2F=0.697239D 03 

T5F=0. 6972440 03 T6F=0 .6972440 03 

T9F=0, 6972430 03 T10F=0. 6972420 03 

TINNER £TRUCTURE=0. 5415100 03 


T3F=0.697241D 03 
T7F=0. 6972440 03 
QAH«=0.0 


T4F=0. 6972430 03 
T8F=0. 6972440 03 
QROUT=0. 8629390-01 


QRADINTERNAL=0. 4324430-01 



NQLDW112,THE NON-ABLATING PROGRAM (CONTINUED) 


TEST PROBLEM NO. 2 RUN ON OLD NQLOW112 


INPUT DATA 

J=1Q0 TIH0=0.( 

XKA»0. 33300-0* 
XKF=0.2667D-0I 
RHC1>0.1IOOO 03 
RH06«0. 17000 03 
CPAaO. HOOD 00 
CPF=0. 23000 00 
711^0.3*000 03 
T6I»0. 5*000 03 

DELX=0. 17360-02 

U1»0.0 

U6=-0.0 

V1»0.0 

Vi‘0.0 

EP2»0. ICCOO 00 


NPTS1= 


NPTS2= 


XK6=0 

XKG=0 

RH02 

,RH07 

CPB=0 

CP6=0 

T2I=0 

771=0 

DELT 

U2=0.0 

L7=0.0 

V2=0.0 

VT=0.0 

EP3=0 


EH 10 

333OD-0* 
.26670-01 
0.11000 
=0.17000 
.11000 00 
.23000 00 
.5*000 03 
.5*000 03 


0.80000 00 

XKC=0. 33300-0* 
XKH=0. 26670-01 
03 RHC3»0.11000 

03 „RH08=0. 17000 

CPC-0, iicoo 00 

CPH-0.2300D 00 
T3!=0. 5*000 03 
781 = 0.5*000 03 


XK0=0.3330D-0* XKE-0.2667D-01 

XIU = 0.2667D-01 XKJ= 0. 26670-01 
S3 RH05-0.1700D 03 

03 RHOlO-0. 1700D 03 
CPD-C.llCOO 00 CPE=0.Z3O0D 00 

CPI=0. 23000 00 CPJ=0.2300D 00 

7*1=0.5*000 03 751=0.5*000 03 

T9I=C.5*OOD 03 7101 =0.5*000 03 


1H=0, 50000 00 

U3=0.0 


.10000 00 

NPTS3= 


-- U*=0.0 U5-0.0 

U|=c.0 00=0.0 010=0.0 

V3=fl.O V*=0.0 V5=0.0 

V8=0.0 V0=0.0 VlO-0.0 

TIANER=0.5*0OD 03 AE= 0.0 
6 NPTS*= 3 KK5= 5 


6E= 0.0 


RHOIN= 0.1700000 03 CPtN= 0.2300000 OC TA01N= 0.8333330-01 


IJK=l IHW 


VAl» 0*20S330D-02 

VA2= 0*2083300* 

VA6 

a C.173610D-02 

VA7= 0*173610D- 

XE» 

0»1736IOD-Q2 

AX« 0.301404D-CI 


XTIWg 1 


OOQTT 



0. 0 


0.0 



O.ICOOOOO 

02 

0.2500000 

01 


0*25DOOOD 

02 

0. LOOOOOD 

07 


0»450000D 

02 

0.250000D 

01 


0.5COOOOD 

02 

0.0 



O.ICOOCOD 

04 

o*c 



YIIME 


KRECC 



0*0 


0*1290000 

03 


O.IOOOOOD 

02 

(>•1500000 

03 


0*2500000 

02 

0*4000000 

03 


0*^eCOOOD 

02 

O.SOOOOOD 

03 


0.5C00O0D 

02 

0*5500000 

03 


0*1000000 

04 

0.400QOOD 

03 




CRADO 



0*0 


0*0 



0*1000000 

02 

0»100000D 

01 


0*2f OOOOO 

02 

, 0.2000000 

01 


0.^500000 

02 

* O.IOOOOOD 

01 


0.5COOOOO 

02 

0*0 



0*1000000 

04 

0.0 



VA3= 0.2083300-02 VA*= 0,2003300-02 

VAB= 0.173610E-02 VA9= 0.1736100-02 

VE= 0.5232680-08 XX= 0,57600*0 03 


VA5= 0,1736100-02 
VA10= 0.1736100-02 


TENPERA7URES OF ELEMENTS ARE IN DEGREES T 


TIME = O.IOOQOOO 02 

T1F=0.16966*D 03 T2F=0. 1320690 03 

2^ T6F=0. 8313130 02 

T9F=0. S30997D 02 TlOF-0. 8309620 02 

TINNER STRUCTUR6=0. 5*00000 03 

lEWPERATURES OF ELEMENTS ARE IN DEGREES F 


T3F=0. 10*7810 03 
T7F=C. 8311730 02 
QAHW= 0.8*92140 00 


T*F=0. 0319530 02 
T8F=0. 8310670 02 
OROUT-0. 5666630-01 


QRADINTERNAL'D. 27*93*0-0* 


TIME 


0.2000000 02 


TlF=0. 5*02910 03 T2F-0. 3583600 03 

T5F=0.106696D 03 T6F=0. 1056030 03 

79F=0. 1C5*36D 03 T10F=0. 105*170 03 

TINNER STRUCTURE-0. 5*00030 03 


T3F=0. 2197880 03 
T7F=0. 1055280 03 
CAHh=0. *0376*0 01 


TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


ISE'9- 1059*00 03 
TBF =0,105*730 03 
6ROUT=0. 326*660 00 


ORAOINTERNAL=0. 2991970-03 


TINE 


0.360000D 02 


T1F=0. 793*650 03 T2F=0.598171D 03 

TSF»0.2C9697D 03 T6F*0. 2095*00 03 

79F»0. 2092580 03 T10F=0.209227D 03 

TINNER STRUCTURE=0. 5*003*0 03 


T3F=C. *017960 03 
T7F=0. 209*150 03 
QAHW=0, *212970 01 


T*F=0.210HOD 03 
T8F=0. 2093210 03 
0ROUT=0. 9691060 00 


(»RADINTERNAL=0.l90733D-02 


A12 



Tej^peftATi/fies of 5L£K£nts fins rw degrfes p 


NQIDW112,THE NON>ABUTING PROGRAM (CONTINUED) 


TIKE - 0.4500000 02 

TlFa0.604595D 03 T2F*0. 5609170 03 

75F-0. 2665320 03 T6F«0. 2664110 03 

T9F*0. 2661^30 03 T10F«0.266L69D 03 

TINNCR STRUOTURe»0.540Q67C 03 

TEKPEKAIURES OF 6UPENTS AR6 IN DEGREES F 


T3Fn0.4l4S61D 03 
T7F*C. 2663140 03 
QAHV^sQ.250U3D 01 


tApsO. 2660500 03 
T8F=0,266242D 03 
QR0 uT*D.700846D 00 


QUAD !Nr€RNAL*0. 4667520-02 


TII-6 


0.500000D 02 


T1F*0. 5321970 03 T2F«0. 4821110 03 

T5F*0*2900590 03 T6F»0.2899T50 03 

T9F»0*2S9a23D 03 T10 FbO,289805C 03 

TINNER 5TRbCTURE=0.540083D 03 

T6KPERATURES OF ^ELEMENTS ARE IN DEGREES F 


T3FBC.3931700 03 
TTF*0. 2899070 03 
CAHh*0.273997D OO 


T4FaO. 2902810 03 
TeF*0,289e570 03 
CROUTs0.4O5299D 


00 QRADiNTERNALaO .5671660-02 


TIFE = 0*5500000 02 

■riFaO,395709O 03 T2F»0.38250L0 03 

T5F*0.3C31750 03 T6F«0. 303I38D 03 

T9F*0.303072D 03 T10F»0 .3030640 03 

TINNER STRUCTURe=0*540lOZD 03 

TEKPERATURES OF ELEMENTS ARC IN DEGREES F 


T3F»0.348166C 03 
T7F=C. 3031090 03 
OAHWbO.O 


T4F»0.30327ZD 03 
T8F»0.303087D 03^ 
QR0UT=0.21A8860 00 


QRA01NTERNAL*0. 6340420-02 


TIKE - 0.6000000 02 

T1F*0*338534D 03 T2Fs0.336469D 03 

T5FbQ«3C8392D 03 T6F=0. 3063760 03 

79Fb0*3C8353D 03 TIO F*0 . 3083500 03 

TINNER STRUCTURE=0, 5401220 03 

TEMPERATURES OP ELEMENTS ARE IN DEGREES P 


T3Fb0.324885D 03 
TTFSC.3CB367D 03 
QAKRbO.O 


T4F«0.308427D 03 
TBFsO. 3083590 03 
QROUTbQ, 159470D 00 


ORADINTERNALbO. 6631020-02 


TIKE = 0.6SOOOOD 02 


TIFbO.3122870 03 
T5F^0.3L0025D 03 
19F=0-31C01SD 03 
TINNER STRUCTURE* 


T2F=0. 3153160 03 
T6F*0. 3100210 03 
T10F*0.310014D 03 
.540142C 03 


T3FaO.313072D 03 
T7F«0. 3100190 03 
CAHVbO.O 


TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T4F*0.310033D 03 
T8F=0.310017D 03 
CRQUT=0. 1380TIC 00 


QRAOINT ERNAL*0.673060D-02 


TIKE * 0.7000000 02 

T1F«0.299828D 03 T2F*0.305151D 03 

T5Fb0.310061D 03 T6F=0.310062D 03 

79F*0.3I00640 03 T 10F*0.310064D 03 
TINNER StRUCTURE=O.540l63C 03 

TEKPERATUfteS OF ELEHENtS ARF IN DEGREES F 

* 

TIKE = 0,7500000 02 


T3FcQ. 3082500 03 
T7F«0.310063D 03 
OAHUbO.O 


TIF*0*293540D 03 T2F=0. 2996930 03 

T5F=0.3C93820 03 T6F*0. 3093860 03 

T9F*0.3C939lO 03 TIOF=0 ,3093920 03 

TINNER STRUCTLIR£*0.5401750 03 

temperatures of elements are in degrees F 


TBFb C. 3050330 03 
T7F=0.30938BO 03 
QAKL«OtO 


T4F*0.31C057D 03 
T8F=0.310064n 03 
QROUTsO. 1287410 00 


T4Fb0.309373D 03 
T6F»0.309390D 03 
QR0UTb0*124571D 00 


QRAOINTERNAL=0.674312D-02 


QRAniNTERNAL»0.671660D-02 


TIKE 


0,dC0C00D 02 


T1F«0. 2900830 03 T2F=0. 2968700 03 

T5F»0.3C83R40 03 T6F*0.308388D 03 

T9ps0*3C8396O 03 T 10F*0, 308396D 03 
TINNER STRUCTUREb0.540186D 03 

TEMPERATURES OF ELEMENTS ARF IN DEGREES F 


T3FsO,3029070 03 
T7 Fb C.3C83920 03 
OAHUbO,0 


T4Fo 0»308372O 03 
T6F=0.308394D 03 
0R0UT*0,l22O41D 00 


0RA01NTERNAL»0 ,6672710-02 


TIME 


0.850000D 02 


TlFaO,2S79D3D 03 
T5 Fb 0.3C?24SD 03 
T9F=i0.3a725eD 03 


T2F=0*294B630 03 
T6F=0.307250D 03 
T10FsO*3072590 03 


T3F*0.301281D 03 
T7F«*0. 3072540 03 
OAHViaC.O 


T4F50.307233D 03 
T8Fs0. 3072570 03 
OROUT»0,12C513C 
A13 
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NQLDW112, THE NON-ABLATINC PROGRAM <CONTINUED) 

TI^NER STRUCTURE=0.540196C 03 
TEPPERATUR6S OF ELEMENTS ARE IN DEGREES F 


TIKE = 0. <5000000 02 

T1F=0.286303D 03 T2F=0.293317D 03 T3F=C,2998B6D 03 TAF=0. 3060350 03 

T5F=0.3C60A8D 03 T6F=0.306053D 03 T 7F=0. 306057D 03 TBF=0. 3060600 03 

T9F=0.3C6062D 03 T10F=0. 3060620 03 OAHW=0.0 QROUT=0. 1 1 9A330 00 ORADI NTERNAL=0. 6566930-02 

TINNER STRUCTURE=0.5A0206D 03 

TEKPERATURES OF ELEMENTS ARE IN DEGREES F 


TIKE = 0.9500000 02 

TlF=0.28A96eO 03 T2F=0 .2919840 03 

T5F=0. 3048290 03 T6F=0.304834D 03 

T9F=0.3C4842D 03 T10F=0. 3048430 03 

TINKER STRDCTURE=0. 5402160 03 

TEKPERATURES, OF ELEKENTS ARE IN DEGREES F 


T3F=0.298598D 03 
T7F=C.304838D 03 
OAMH=Q.O 


T4F=0. 3048150 03 
T8F=0. 3048400 03 
QRQUT=0.118557D 00 


QRADINTERNAL=0. 651 1520-02 


TIKE = 0.1000000 03 

T1F=0.283756D 03 T2F=0.290749D 03 T3F= C. 2973620 

T5F=0. 3036030 03 T6F=0 .3036080 03 T7F=0. 3036120 

T9F=0. 3036170 03 ■ T10F=0. 3036 170 03 0AHVi=0.0 

TINNER STRUCTURE=0. 5402260 03 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


03 T4F=0.303590D 03 

03 T8F=0. 3036150 03 

CR0UT = 0. U77760 00 


ORAOIKTERNAL=0. 6456000-02 


TIKE = O.IOSOOOO 03 

T1F=0. 2626030 03 T2F=0. 2 895630 03 

T5F=0.3C2379D 03 T6F-0. 3023840 03 

T9F=0. 3023930 03 TLO F=0. 30 23930 03 

TINNER STRUCTURE=0. 5402360 03 

temperatures of elements ARE IN DEGREES F 


T3F=C.296154C 03 
T7F=C. 3023880 03 
QAHM=0.0 


T4F=0. 3023660 03 
T8F=0. 3023910 03 
QR0UT=0.1L7042D 00 


QRAOINTERNAL=0. 6400760-02 


TIKE 


0.1100000 03 


T1F=0.ZB1480D 03 T2F=0. 288402D 03 

TSF=0. 3011600 03 T6F=0.301 165D 03 

T9F=0.301174D 03 T10F=0. 3011740 03 

TINNER STRUCrURE=0. 5402460 03 

TEKPERATURES OF ELEKENTS ARE IN DEGREES F 


T3F=0. 2949620 03 
T7F=C. 3011690 03 
QAHW=0.0 


T4F=0. 3011470 03 
T8F=0.3011720 03 
0R0UT=0. 1163330 


00 


0RA01NTERNAL=0. 6345980-02 


TIKE = 0.1150000 03 

T1F=0.2803740 03 T2F=0 . 287257D, 03 

T5F=0. 2999470 03 T6F=0. 2999520 03 

T9F=0. 2S99610 03 T10F=0. 2999610 C3 

TINNFR STR0CTURE=0. 5402550 03 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T3F=C. 2937810 03 
T7F=0. 2999560 03 
CAHN=0.0 


T4F=0. 2999340 03 
T8F=0. 2999590 03 
CROUT^O. 1156390 00 


0RADINTERNAL=0. 6291730-02 


TIKE 


0.1200000 03 


T1F = 0. 2792790 03 T2F=0 , 2 86 122D 03 

T5F=0. 2987410 03 T6F=0.298746D 03 

Tgp=0.298754D 03 T10F=0. 2987550 03 

TINNFR STRUCTURE=0. 5402650 03 


T3F=C,2926C9D 03 
T7r=C. 2987500 03 
QAHH=0.0 


T4F=0. 2987280 03 
T8F=0. 2987530 03 
QROUT=0.114955D 00 


ORADINTERNAL-0. 6238040-02 
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APPENDIX B 


This appendix presents a program listmg of NQLDWI17, the 10-element, one- 
dimensional structural heating with surface ablation program. As in the Appendix A 
case, the input listing in the printout should be sufficient for the user to test his basic 
deck as well as input technique. Having thus obtained a workmg deck, the vanous 
options of the program should be easily mastered by following the mstructions of 
Figure 2-2. 
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NQLDW117, THE ABLATION PROGRAM 

10 ELEHEMT I OIHENSICNAL STf?UCTURflL HEATING PROGRAM HAINOOIO 

XKA,XKB,ETC ARE COND. COEFF.S AT 540 DEG R FOR EACH ELEMENT MAIN0020 

COND. COEFF.S ARE IN 8TU/FT SEC OEG R HAIN0030 

CPA.CPB.ETC ARE SPEC. HEATS AT 540 DEG R FOR EACH ELEMENT MAIN0040 

SPECIFIC HEATS ARE IN BTU/L8M MAIN0050 

EHIS = OUTER SURFACE EHISSIVITY HAIN0060 

RH01-,RH02 THRU RHOlO = DENSI-T-Y OF RESRECT4VE ELEMENT- MATERIAL HA1N007.0_ 

DENSITY IS IN L6M/FT3 MAIN0080 

T1I,T2I,ETC -INITIAL ELEMENT TEMPERATURES ( DEG RJ MAIN0090 

U1,U2,THRU UlO ARE COEFF.S IN CDNC.COEFF EQ.: K=XKA+U1*THEST MAINClOO 

Vl.VZtTHRU VIO ARE COEFF.S IN SPEC. HEAT EQ; CP1=CPA+VI#THEST MAINOllO 

TWEST = ESTIMATED WATT TEMPERATURE ICORRECTED BY ITERATION) MAIN0120 

IF U AND V ARE INPUT AS O.THEN K AND CP ARE IMDEPEN. OF TEMP. MAIN0130 

TIMO =INITIAL TIME IN TRAJ. (CAN BE 0 OR GREATER THAN 0) (SEC) HAIN0140 

DELTIM=TIKE STEP (QDOT.ETC MUST BE GIVEN EVERY DELTIM (SEC) MAIN0150 

DELX = ELEMENT THICKNESS (FT) MAIN0160 

J = NO. OF TIME STEPS MAIN0170 

QDOT ,PLOC»HREC DATA IS INPUT FOR THALL=540 OEG. HA1N0180 

QDOT IS IN 0TU/FT2 SEC MAIN0190 

PLOC IS IN ATMOSPHERES MAIN0200 

HREC IS IN BTU/LBM MAIN0210 

OUTPUT NOMENCLATURE MAIN0220 

QRAD(I)= HEAT RADIATED INTO THE WALL SURFACE (BTU/FT2 SEC) HAIN0230 

QAHW=AVERAGE HGT WALL AERC AND RAD, HEAT RATE INTO OUTER SURFACEHA IN0240 

OF ELEK. 1. (IF NEG.. SURFACE IS COOLING) (BTU/FT2 SEC) MAIN0250 

QROUT=AVG.HEAT RADIATED FROM ELEM.l TO SPACE (BTU/FT2 SEC) HAIN0260 

CRINTERNAL=AVERAGE HEAT RATE OUTPUT RADIATED FROM ELEMENT 10 INTO THEMAIN0270 
VEH, (IF NEG., HEAT IS FLOWING INTO ELEM.IO FROM THE HAIN0280 

VEHICLE INTERIOR) (BTU/FT2 SEC) MAIN0290 

IJK=0 PROGRAM REQUIRES THAT SURFACE RECESSION RATE VERSUS QDOTT MAIN0300 
BE READ IN - MAIN0310 

IJK=1 REQUIRES THAT QSTAR VERSUS QDOTT BE READ IN HAIN0320 

OORX=SURF RECESSION RATE OR' QSTAR* AS APPLICABLE MAIN0330 

QDOTT= TABULAR INPUT OF HEAT RATE FOR ABLATION DATA MAIN0340 

IHW=0 COLO WALL HEAT RATES INPUT TO PROGRAM MAIN0350 

=1 HOT WALL HEAT RATES INPUT TC PROGRAM MAIN0360 

NOTE THAT HOT WALL HEAT IN IS ALWAYS NET HEAT TRANSFERRED TO HALL MAIN0370 
WHEN IHW=1 IF HEAT IN IS SUPPLIED ONLY BY RADIANT HEAT MAIN0380 

FACILITY* INPUT QRAB(I) VERSUS TIME AND LET ALL ODOT(I) MAIN0390 

VALUES BE INPUT AS ZERO MAIN0400 

KJK=0 FOR TEMPERATURES PRINTED IN DEGREES F MAIN0410 

KJK=1 FOR TEMPERATURES PRINTED IN DEGREES R MAIN0420 

NPTS = NO. OF QORX-- QDOTT POINTS TO BE INPUT MAIN0430 

NPTl= NO. OF TIME - QOOTl POINTS TO BE INPUT MAI N0440 

NPT2= NO. OF TIME - HRFC2 POINTS TO BE INPUT HAIN0450 

NPT3= NO. OF TIME - 0RA03 POINTS TO BE INPUT MAI NO460 

KK6= NO. OF CALCULATION STEPS PER PRINTOUT KAI N0470 

IMPLICIT REAL^B (A-H,0-2) HAIN0480 

DIMENSION QDOT(IOOO) ,HREC(1000),QRAO( 1000) MAIN0490 

DIMENSION ODQT1(100),HREC2(100>,ORAD3(100),T1MEU1CO) » MAIN0500 

1 TIME2tl00),TIME3<10O) MA1N0510 

DIMENSION 0ORX(50 ) ,0DOTTI50) ' MA1N0520 

REAL*4 TITLEIZO) ' MA1N0530 

n READ(5.25tEND=80C5)TITLE, HAINC540 

1JtEP 2,EP3,TINNER, AEt Be,TIMC,EHIO, MAIN0550 
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NQLDW117,THE ABLATiON PROGRAM (CONTINUED) 


2XKA,XKB,XKCtXKDiXKE»XKF.XKGf XKH.XKI f XKJ ,RH01fRH02,RH03»RH04,RH05»RHMN0560 
3H06,RH07,RH08 tRH09 »RH010,CPA ,CFB,CPCtCPDtCPE,CPF,CPG,CPHtCPI tCPJjTHAf NC570 
41I,T2I,T3I,T4I,T5I,T6I,T7I,T8r,Tgi,T101,DELX,OELTIM» HAIN0580 

5Ul,U2,U3»U4,U5.U6iU7,U8,U9,U10,VltV2tV3fVAtV5fV6,V7,V8i V9,VL0 ,IJKiMAIN0590 
6(HW,NPTS» ABUTM,KJK,NPT1,NPT2,NPT3,KK6 KAIN0600 

READ(5,79) (TIMEK n.QDOTim ,I = 1,NPT1) MAIN0610 

READ(5,79) (T THE2 ( I) , HREC2 « I) t I=ltNPT2) MAUM0620 

READ{5,79) ( T IM63 ( I > , QRAD3 ( I) ^ I=1,NPT3) MAIN0630 

79 F0RHATI6D12.6) HAIN0840 

25 FGRHAT(20A4 HAIN0650 

l/I3,2X,5D10.4»9(/7DiC. 4) ZOIC. 4, 21 1,1 3, 015.6,11,413) FAIN0660 

WRITE(6,25) TITLE RAIN0670 

WRITE(6,600) MAIN0680 

600 FORHATI//2X,* INPUT DATA* ) HAIN0690 

WRITE (6,601) J,TIKO,EHIO,XKA,XKS,XKC,XKO,XKE,XKF,XKG,XKH,XKI,XKJ,RHMAIN0700 
101,RH02,RHQ3,RH04,RHC5,RH06,RHQ7,RHQ8,RH09,RH010.CPA,CPB,CPC,CPO,CHAIN0710 
2PE,CPF,CPG,CPH,CPI,CPJ,T1I,T2I,T3I,T4I,T5I,T6I,T7I,T8I,T9I,T10I,DEHAIN0720 
3LX,DELTlF,Ul,U2,U3,U4,U5,U6,U7,U8tU9,U10,Vl,V2,V3,V4,V5,V6,V7,V8,VHAIN0730 
49,V10,EP2,EP3 ,T INNER,AE,BE, UK, IHW,NPTS,KJK,NPT1,NPT2,NPT3 ,KK6 HAIN0740 

601 FDRF'AT{/2X,*J=* , 1 3, 3X , • T IHO= • , D 10 . A, 3 X, • EH 10= • ,D10. 4/2X , • X KA = * ,D10HAIN0750 
1.4,3X,'XKB=' ,010.A,3X,‘XKC=* ,01C.A,3X,* XKC = * ,D1C.A,3X,» XKE = * ,D10.4KAIN0760 
2/2X,' XKF=' ,D10.4,3X,'XKG=* ,D1 0. A , 3X , * XKH=* ,010. A ,3X, • XKI=* . DIO. A,3M AIN077Q 
3X,'XKJ=' ,010. A/2X,'RH0L=* ,DLO .A ,3X , ' RH02=' ,D10,A, 3X, • RH03= S DIO. A, MAIN0780 
A3X,*RH0A=' ,01C.A,3X,'RH05=' ,010. A/2X, * RHG6= • , DIO.A, 3X, ' RHD7=’ , QIC . MA IN0790 
54,3X, 'RHQ8=' ,010. A ,3X ,» RHC9 = ' ,010. A ,3X, ' RHQ10=' , DIO. A/2X, * CP A= ■ ,C1HAIN0SC0 
60.4,3X,'CPB=> ,D10.4,3X,»CPC=' ,C10 .4 ,3X, • CPD=* , CIO. A, 3X, ' CPE=* , D1C.MAIN0810 
74/2X, 'CPF=* ,010.4, 3X,*CPG=* ,010.4 ,3X, ' CPH=!' , D10.4, 3X, ’ CPI= * ,D10. A,MAINC820 
83X,*CPJ = * ,D10,4/2X,’T1I=* , CIO .4 ,3X , • T2 1 = * , 010 .4, 3X , • T 3 1= ’ , D 10 . 4, 3XMA IN0830 
9, • T4I = * ,D10.4 ,3X,‘ T5I =• ,010.4/2X , ' T6I = * ,010 .4 , 3X, ' T7 1= • , DIO .4 , 3X, » MA IN0840 
1T8I = * ,D10.4,3X,« T9 1=* ,010.4, 3X,'T 101 = ' ,010 .4//2X, • CELX=' ,010.4, 3X, HA INC850 
2»DELTIH=* ,D10.4/2X,»U1=’ ,010.4,3X ,'U2=* ,D10.4,3X, * U3= ’ , D10.4, 3X, • UHATN0860 
34=' ,010.4,3Xt'U 5=* ,D10.4/2X,'U6=' ,010 .4, 3X, • U7= ' , D10.4, 3X, * U8=* ,D1HAINC870 
40.4,3X, ' U9=' ,CL0.4,3X U10=' ,D10.4/2X Vl=* , DIO.A, 3X, 'V2=* , DIO. A, 3HA IN0880 
5X,'V3=’ ,D10.4,3X,'V4=* ,010 .4 ,3X , • V5=* ,010.4/2X, ' V6=* , DIO .4, 3X, ' V7=MAIN0890 
6* ,D10.4,3X,»V8=* ,01C.4,3X,' V9=' , 0 10.4 ,3X, ' V 10= * , Cl 0 .4/2X, ' EP2=' ,CIMAIN09C0 
7C.4,3X, 'EP3=* ,D1C.4,3X,’TUAER=' ,C10.4,3X, ■ AE=* ,C15 .8, 3X, * BE= ' ,D15HAIN0910 
e.8,3X,' IJK=* , IL,3X,' IHW=' , I i /2X , ^ N'PTS = * , 13 ,3X , • KJK= • , 1 1, 3X, ' NPT1= • MA INC920 

- - -- - -- - HA1N0930 

MAIN0940 
MAIN0950 
HAIN0960 
MAIN0970 
MAIN0980 
MAIN0990 
HAINIOOO 
MAINlOlO 
HAIN1020 
MAIN1030 
MAIN1040 
HAIN1050 
HAIN1060 
HAIN1070 
MAIN1080 
MAIN1090 
FAINllOO 


6C2 

603 

6CA 

605 


606 

607 


608 


9,I3,3X, 'NPT2=' , I3,3X,'NPT3=* ,13 ,3X , • KK6=' ,13) 
WRITE(6,602) 

F0RHAT(//5X,'TIME' ,10X,’QDCT' ) 

DO 604 I=l,NPTl 
F0RMAT(2X,D12 .6,2X,D12.6) 

WRITE(6,603)T IMEim,QO0Tl(I) 

CONTINUE 

WRITE(6,605) 

FORMAT (//5X,' TIME ' ,10X,'HREC* ) 

DO 606 i=l,NPT2 

WRITE (6,603 JT IME2 ( n,HREC2( I) 

CONTINUE 

WRITE(6,6Q7) 

F0RMAT(//5X,'TIHE' ,iOX,'eRAC ) 

DO 608 I=l,NPT3 
WRITE(6,603»TIHE3( n,0RAD3(I) 

CONTINUE 
TIME=TIHO 
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_ -NQLDW117,.THE ABLATION P-ROGRAM.(CONTINUED) 


IZZ=0 

11=0 

READI5»100)XAl*ftAL.Xfl2«AA2,XA3»AA3t XAA, AA4, XA5 , AA5t XA 6 1 AA 6 
1»XA8»AA8,XA9, AA9fXAlC,AA10 
ICC FORHATODl^. 6/501^. 6/5DlA.6/501A.e) 

READ(5»120) AREF1tAREF2tAREF3, AREF.A, AREF5 , AREF6, AREF7, AREF8 
IREFIO 

12C F0RMAT(5D1A.6/5D1A.6) 

READ<5,167J ( CORX t J J 1 , QDOTT ( J J ) , J J= 1 t MPTS I 
16-? F0RPAT(2D15.6 ) 

WRITE(6,777) 

777 FORMAT t/ax. *QQRX(JJ )‘-,17Xt'QD0TT{ JJ »• ) 

DO 770 JJ=1,NPTS 
E=CORX(JJ) 

F=QDOTTt JJl 
776 WRItE(6,779»E,F 
779 F0RNAT(5X,D14.6,10X,D14.6) 

TM=TIKO 
DO 150 I=1«J 

DO 151 K=1,NPT1 

rF(TH.GE.TIMEi(K).AND.TF,LT,TtMEl (K + D) JJ=K 

0007( 11 =( (QDDTl ( Jj+11-ODCTl C J J) 1 / (TIM El IJ J + 1 >-T IM El (J J )) ) 

1 * (TF-TIFEK JJ) ) + ODOTKJJ) 

DO 152 K=1,NPT2 

IF(TM.GE.TIPE2(K) .ANC.TM,LT.TIHE2(K+1) ) J5=K 

152 CONTINUE 

HRECm = (( HREC2(J5+1) - HRECZtJSl) / ( TIHE2I J5+1 )-TIHE2( J 
1 * (TF-TIKE2( J5)) + HREC2tJ5) 

DO 153 K=1,NPT3 

IF tTH.GE.TIME3(K). AND.TM.lt. TIME3(K + 1M J6=K 

153 CONTINUE 

QRAD( I) = ( ((2RAD3(J6+1)-QRAD3(J6) )/ (TIMES (J6 + ll-TIME3(J6n 1 
1 * (TH-TIME3C J6)l + QRA03(J6) 

TM=7K+DELTIF 
15C CONTINUE 
- 1=0 

VA1=XA1*AA1 

VA2=XA2+AAZ 

VA3=XA3*AA3 

VA4=XA4*AA4 

VA5=XA5#AA5 

VA6-XA6*AA6 

VA7=XA7<=AA7 

VA8=XA8*AA8 

VA9=XA9*AA9 

VA10=XA10*AA10 

XE=DELX 

AX=OELX#DELX 

VE=AX*DELX 

XX=XE/AX 

XA1I=XA1 

IF ( IZZ-1 1820, 806,806 
820 IFITl I-ABLTH) 806,806,807 
807 T1I=ABLTK 


MAINlllO 
HAIN1120 
,XA7,AA7HAIN1130 
MAIN1140 
MAIN1150 
,AREF9, AMAIN1160 
HAIN1170 
MAIN1180 
HAIN1190 
MAIN1200 
HAIN1210 
MA1N1220 
MAIN1230 
MAIN1240 
HAINL250 
MAIN1260 
MAIN1270 
HAIN1280 
FAIN1290 
NAIN130O 
HAIN1310 
HAIN1320 
HA1N1330 
MAIN1340 
MAI N1350 
MAIN1360 
MAIN1370 
5111 MAIN1380 
HAIN1390 
MAIN1400 
HAIN1410 
HAIN1420 
MAIN1430 
MAIN1440 
FAIN1450 
HAIN1460 
MAI N1470 
MAIN1480 
HAIN1490 
HAIN1500 
MAIN1510 
MAIN1520 
MAIN1530 
MAIN1540 
FAIN1550 
HAIN1560 
HAIN1570 
MAIN1580 
MAIN1590 
HAINL600 
MAIN1610 
MAIN1620 
MAINI630 
HAIN1640 
KAIN1650 
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NQLDW117, THE ABLATION PROGRAM (CONTINUED) 


8C6 HRITE{6,101)VAl,VA2,Vfl3,VA^tVA5,VA6»VA7tVA8rVAqiVA10,XEtAX,VE,XX HAIN1660 
ICl FORMAT (//2X,’ VAi=',DlA,6,3X, 'VA2=S DIA, 6, 3X,'VA3=',01A.6 t3Xt'VA4='HA1N1670 
1,D14.6,3X,’ VA5=' , DIA . 6/2X , • VA6= • » C 14. 6 , 3X , • VA7=* , D14. 6, 3X, • VA8=* ,DHAIN168G 
214.6,3X,* VA9=' ,01 4. 6 ,3X , • VA 10 = ' ,014.6/2X,» XE=* , C14. 6, 3X, ' AX=* , 0 1 A .M A I N1690 
36,3X,*VE=',D14.6,3X,*XX=* ,014.6 > MAIN 1700 

KTEST=0 MAIN1710 

3 TIHE=TIME+DELTIM MAIN1720 

KTEST=KTEST-8-l HAIN1730 

£MIS=AE*T1I**2+BE*T1I+£NIC MAIN1740 

AA=EKIS-1. MAIN1750 

IFCAA.GE.0.)EMIS=.9S HAIN1760 

IF(EHIS.LE.O. >EMIS=.C1 MAI N1770 

I=r+1 HAIN1780 

QCW=(0DCT( n + CCOTn + in/2. mainitqo 

QRADIN=(QRADl n+QRA0( I+l) )/Z. MAI NIB 00 

IF(II-1)4,5,5 MAIN1810 

IFCQCH)20,20,21 MAI N1820 

!FtIHW)27,27,90 HAIN1830 

EHIS=e. MAIN1840 

QRDUT=(.4805E’12»EHIS*T1I##4) HAIN1850 

OELTT=IQROUT*DELTIM) / IRHOl=!=(CPA+Vl*Tin*DELXl MAIN 1860 

TWEST=T1I-DELTT MA1N1870 

IFtI2Z-l)e21,800,800 HAIN1880 

I FtTWEST-ABLTH) 800,800, 801 HAIN1890 

TWEST= ABLTM MAIN19C0 

QAHW=QCW+CRA0 IN HAIN1910 

11=1 MAIN1920 

GO TO 9 MAIN1930 

TWEST=MOCM+QRADlN)/ (,4805E-12*EMISn**.25 MA INI 94 0 

IF(IZZ-1)822,802,802 MAIN1950 

I F CTWEST-ABLTM 1802, 802, 803 MAIN1960 

TWEST= ABLTM MAIN1970 

11=1 MAIN1980 

QAHW = OCW + QRADIN HAIN1990 

GO TO 9 HAIN2000 

TWEST=<T1I+T1F)/2. HAIN2010 

IF( IHW)91,9l,92 HAIN202D 

EMIS=0. MA1N2030 

GO TO 93 MA1N2040 

EM[S=EMIQ+AE#TWEST*^2 + 6E*'THEST MAIN2050 

AA=EHIS-1. MAIN2060 

IF(AA.GE.0.)EMIS=.99 MAIN2070 

IFIEHIS.LE.O. )EMrS=.Gl MAIN2080 

QROUT=( .4805E-12+‘EMIS4^TWEST'M*4) HAIN2090 

11=1 MAIN21C0 

HHW=-18. + .2685=»THEST HAIN2110 

IFnHWl670,670,671 MAIN2120 

HHW=127. HAIN2130 

HR=(HREC(n+HREC(I+in/2. 

IF(QCW)575,576,576 HAIN2150 

0AHW=QCW*(HHH/127. »+0RA01N MAIN2160 

TTEST=IHR+1S. )/.2685 HAIN2pO 

IF(TWEST-TTEST)420,420,9 MAINZ 180 

OAHVi=CRADIN HAIN2I90 

GO TO 9 MAIN22G0 


4 

2C 

9C 

27 


821 

8C1 

8CC 


21 

822 

803 

8C2 


92 

91 


93 

712 

8 

671 

67C 

575 


42C 


BB 



NQLDW117, THE ABLATION PROGRAM (CONTINUED) 


576 

9 


65C 


775 


GAHW=CCW=!=I (HR-HHW)/(HR-1?7. n+ORACIN 

MAIN2210 

XKI=XKA+U1*TWEST 

HAIN2220 

XK2=XKB+U2*T2I 

.KAIN2230 

■XK3=XKC'+U3*T3T 

HAIN2240 

XKA=XK0+U4«T4I 

MAIN2250 

XK5=XKE+U5*T5I 

MAIN2260 

XK6=XKF+U6*T6I 

MAIN2270 

XK7 = XKG + U7=«'T7I 

MAIN2280' 

XK8=XKH+U8*T8I 

MAIN2290 

XK9=XKI+L9#T9I 

PAIN2300 

XK10=XKJ+U10*T10I 

HAIN2310 

CP1=CPA+V1*TWEST 

MAIM2320 

CP2=CPB+V2*T2I 

PAIN2330 

CP3=CPC+V3#T3I 

KAINZ340 

CP4=CPD+V9«T4l 

MAIN2350 

CP5=CPE+V5*T5I 

KA I N2360 

CP6=CPF+V64T6T 

MATN2370 

CP7=CPG+V7*T7I 

KAIN2380 

CP8=CPH+V8*T8 I 

HAIN2390 

CP9=CP1+V9*T9I 

NAIN24C0 

CP10=CPJ+V10*T10I 

MAINZAiO 

XK1=XK1*( AA1/XA1)*XX 

MAIN2420 

XK2 = XK2*( AA2/XA2)=*XX 

MAIN2430 

XK3=XK3=»( AA3/XA3)*XX 

HA I N2 440 

XK4=XK4# ( AA4/X A4 )*XX 

MAIN2450 

XK5=XK5*{ AA5/XA5)*XX 

PAIN2460 

XK6=XK6*( AA6/XA6)*XX 

MAIN2470 

XK7=XK7* 1 AA7/ X A7 ) +XX 

MAIN24S0 

XK8=XK8*(AA8/XA8I*XX 

MAIN2490 

XK9=XK9=»( AA9/XA9)+XX 

NAIN2500 

XK10=XK10«{ AA10/XA10>*XX 

MAIN2510 

IFtI-l)650,650,775 

HAINZ520 

RH12==RHG2*{VA2/VE)AAREF2 

MAINZ530 

RH11=RH01+(VA1/VE)*AREF1 

MAIN2540 

RHL3=RH03*tVA3/VE)*AREF3 

MAIM2550 

RH14=RH04#( VAA/VE)*AREFA 

WAIN2560 

RH15=RH05«{VA5/VE) AAREF5 

NAIN2570 

RH16 = RHC6=i‘(VA6/VE )*AREF6 

MAI!'J2580 

RH17=RHC7*« VA7/VE )*AR£F7 

MA IN2590 

RH18=RHG8#(VA8/VE)*AREF8 

MAIN260O 

RH19=RH09*{ VA9/VE )*AREF9 

MAIN2610 

RHXIO=RH010*( VAIG/VE) *AREF1Q 

HAIN2620 

XK1 = (XK1=^XAH-XK2«XA2)/<XA1 + XA2) 

MAIN2630 

XK2=fXK2#XA2+XK3*XA3)/<XA2+XA3) 

MAIN2640 

XK3=(XK3’i=XA3+XK4’>XA4) /<XA3 + XA4) 

HAIN2650 

XK4=(XK4*XA4+XK5«XA5)/<XA4+XA5) 

MAIN2660 

XK5=(XK5*XA5+XK6*XA6)/ (XA5+XA6) 

MAIN2670 

XK6=(XK6*XA6+XK7*XA7) /(XA6+XA7) 

HAIN2680 

XK7=(fXK7*XA7+XK8=l‘XA8)/(XA7->XA8» 

MAIN2690 

XK8=(XK8*XA8+XK9*XA9)/(XA8+XA9) 

MAIN2700 

XK9=(XK9<'XA9«-XK1C*XA10J / ( XA9+XA10) 

HAIN2710 

Al=(XK14DELX#DELTlM)/2. 

HAIN2720 

A2=(XK2=^DELX!!tDELTIHl/2. 

MAINZ 730 

A3={XK3*OELX*OELTIH)/2. 

MAIN 2740 

A4=( XK4*DELX*D£L71H) /2. 

KA IN2750 
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NQLDW117. THE ABLATION PROGRAM (CONTINUED) 


5C 

51 


52 


A5=(XK5=!'DELX^DELTIM)/2. HAIN2760 

A6=(XK6:*DELX*DELTIM)/2. HAIN2770 

A7=(XK7#DELX#DELTIH)/2. HAIN2780 

A8=(XK8’!'0ELX*DELTlH)/2. HAIN2790 

A9=(XKg#DELX#DELTIH)/2. MAIN2800 

A10= CP1*^RH11*DELX**3 HAIN2810 

A11=CP2’»RH12*DELX**3 PAIN2820 

A12=CP3*RH13«'DELX*#3 MAIN2830 

A13=CPA+RH14*DELX**3 HAIN28A0 

A1A=CP5*RH15<'DELX*’»3 HAIN2B50 

A15=CP6«RH16*DELX**3 MAIN2860 

A16=CP7*RH17*DELX**3 MAIN2870 

A17 = CP8*RH18*DELX>1'*3 MAIN2880 

A18=CP9#RH19*DELX«#3 MATN2890 

A19=CP10*RH110*DELX*43 MAIN2900 

A20=(CELX*>l'2)*DELTIH MAIN29L0 

IF<EP2#EP3)50,50,51 MAIN2920 

AAZ=0. MAIN2930 

GO TO 52 HAIN2940 

EP23 = EP2 * EP3 MAIN2950 

EP23 = EP23/IEP2 + EP3 - EP23) , MAIN2960 

AAZ=£P23*.A305E-12*l (T10I**A )-(TINNER**4) )*DELT1M#DELX#*2*AA10/AX HAIN2970 
F1=A1+A10 PAIN2980 

F2=A1 HAIN2990 

HAW=AA1/AX MAIN30gq 

F3=A1*( TLI-T21 )-A10*T11+EPIS*,48C5E-12*(TWEST**4) *A20*WAVi-QAHM*A20HAIN3010 


1*WAW 
F4=A1+A2+A11 
F5 = A2 

F6=(-A1 )*(T1T-T2n+A2*(T2I-T31)-A11#T2I 

F7=A2+A3+A12 

F8=A3 

Fg=(-A2)#{T2I-T3I) + A3=»lT3I-T4n-A12^T3I 

F10=A3+A4+A13 

F11=A4 

F12 = (-A3)*(T3I-T4I ) + A4# (T4 1-T5 I ) - A 13*741 

F13=A4+A5+A14 

F14=A5 

F15=l-A4)*{T4I-T5n+A5*I T5I-T6I )-A14*T5I 

F16=A5+A6+A15 

F17=A6 

F18=(-A5)7(T5I-T6n+A6*{T6I-T7I )-A 15*761 

F19=A6+A7+A16 

F20=A7 

F21=t-A6)*IT6I-T7I J+A7*(T7I-T8I )-( A 16*771 ) 

F22=A7+A8+A17 

F23=A8 

F24=(-A7)*<T71-T8I H-A8* (T8 I-T9I )-A17*T8I 

F25=A8+A9+A18 

F26=A9 

F27=(-A8)*(T8I-T9I )+A9*(T9r-T10n-AL8*T9I 
F28=A9+A19 

F29=(-A9J #(T9I-T10IJ-A19#T1CI+AAZ 
G1=(F26*F29)+(F27*F28 ) 

G2=F23*F28 


RAIN3020 
MAIN3030 
PAIN30A0 
HAIN3050 
MAIN3060 
HAIN3070 
MAIN3O0O 
HAIN3090 
HAIN3100 
MAIN3110 
KAIN3120 
MAIN3130 
PA1N3140 
MAIN3150 
MAIN3160 
PAIN3170 
MAIN3180 
HAIN3190 
PAI N3200 
MAIN3210 
MAIN3220 
MAIN3230 
HAIN3240 
HAIN3250 
HAIN3260 
MAXN3270 
MAIN3280 
HAIN3290 
KAIN3300 
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NQLDW117,THE ABLATION PROGRAM {CONTINUED) 

G3=(F26**2)-( F25*F28) 


HAIN3310 

G^=(F23:*G2)/G3 


MAIN3320 

G5=(F23*G1)/G3 


HAIN3330 

G6=F22*G4^ 


MAIN3340 

67=F20/G6 


MAIN3350 

G8=(G5-F24)/G6 


HAIN3360 

G9=F21-(F20^G8) 


HAI.N3370 

G10=«F20*G7)-F1'9 


MAIN3380 

Gll=G9/6lO 


HAIN3390 

G12=F17/G10 


MAI N3400 

G13=F16+(F17<=G12) 


MAIN3410 

G14=F18-<F17*:G11) 


HAIN3420 

G15*F14/G13 


HAIN3430 

G16s=G14/GL3 


MAIN3440 

G17=(F14*G16)+F15 


HAIN3450 

G18=[F14#G15)-F13 


HAIN3460 

G19=G17/G18 


HAIN3470 

G20=Fll/Gl8 


MAIN3480 

G2l={Fll*G20)+flO 


MAIN3490 

G22=F12- (F11*^G19 ) 


MAIN3500 

G23=G22/G21 


MAIN3510 

G24=F8/G21 


MAIN35Z0 

G25-<F8*G24)-F7 


KA1N3530 

G26=F9+(F8«G23) 


HAIN3540 

G27=F5/G25 


HAIN3550 

G28=G26/G25 


MAIN3560 

G29«( F5=«'G27) + F4 


HAIN3570 

G30'F6-<F5=cG2 8) 


HAIN3580 

G3l=G30/G29 


MAIN3590 

G32=F2/G29 


FA1N3600 

G33=-F1+(F2*G32) 


MAIN3610 

G34=F3+(F2*G3l) 


HAIN3620 

T1F=G34/G33 


HAIN3630 

IF{IZZ-1)823,804,804 


HAIN3640 

823 IF(TlF-flBLTF)80'i,804,805 


MAIN3650 

805 TlF=aBLTM 


MAI N3660 

8C4 T2F=(G32*T1F)-G3l 


HAIN3670 

T3F=(G28)-[G27«T2F) 


MAIN3680 

T4F=(G24*T3F)-G23 


HAIN3690 

T5F=G19-(G20*T4F) 


MAIN37C0 

T6F=(G15=«^T5F)-G16 


MAIN3710 

T7F=G11-(G12*T6F) 


HAIN3720 

T8F=(G7+T7F>+G8 


HAIN3730 

T9F=1G1-(G2*T8F) )/G3 


MAIN3740 

T10F= ( ( F26*T9F)-F29 »/F28 


HAIN3750 

TF1=T1F-A60, 


KAIN3760 

TF2=T2F-460« 


MAIN3770 

TF3=T3F-460. 


MAIN3780 

TF4=T4F-480, 


KAIN3790 

TF5*T5F-460. 


MAIN380C 

TF6=T6F-460« 


MAIN3810 

TF7=T7F-460. 


MAIN3820 

TF8*T8F-460. 


HAIN3830 

TF9-T9F-<i60. 


HAIN3840 

TF10=T10F-460. 


MAIN3850 
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NQLDW1 17, THE ABLATION PROGRAM (CONTINUED) 


WT=(TlI+TlFl/2. 

AAY=AAZ/(DELTIP*AA10) 

WTT=OABS(TWEST-WT) 

IF( (WTT/WT)-. 001)61, 61»5 
61 IFtKTEST-KK61 664,900,66A 
9CC WRlTE(6,65)Tr«e 
65 F0RMAT{//2X,7HTIME =E1A.6) 

IF(KJK)360,360,361 
36C WRITEI6,661) 

KTEST=0 

661 F0RKATI/3X, 'ELEMENT TEHP.S ARE IN DEGREES F') 


HAIN3860 

HAIN3870 

HAIN3880 

MAIN3890 

KA1N39C0 

MAIN3910 

HAIN3920 

MA1N3930 

MAIN39A0 

MAIN3950 

MAIN3960 


WRITE(6,66)TF1.TF2,TF3,TFA,TF5,TF6,TF7,TF8,TF9,TF1C,GAHW,CIRGLT,AAYMAIN3970 
1 .XAl MAI N3980 

GO TO 664 HAIN3990 

361 WRITE(6,662) KSiMAmo 

KTEST=0 , HAIN4010 

662 FORMAT (/3X, 'ELEMENT TEHP.S ARE IN DEGREES R')^ 

WRITE 1 6, 66) T1F,T2F,T3F,74F,T5F,T6F,T7F,T8F,T9F,T10F,GAHW,QRCUT,AAYHAIN4 03 0 
1,XA1 HAIN4040 

66 F0RHAT(/2X,5HT1F =D12.6,3X, 5HT2F =012.6,3X, 5HT3F =D12.6,3X,5HT4F =HAIN^ 
XD12.6/2X,5HT5F =C12.6,3X,5FT6F =D 12 .6, 3X, 5HT7F^=012 .6, 3X, 5HT8F =01MA1N4060 
X2.6/2X,5HT9F =D12.6 ,3X, 5HT1CF=D12 .6 ,3X, 5H0AHH=D12 .6, HAIN4070 

X3X, • GROUT = ' ,012.6,3X, 'QRADINTERNAL= L 012.6/2X, 'ELEH 1 TH ICKNESS= * , MAI N40 80 


X012.6) 

664 IFUZZ-1)429,550,550 

429 IF(THEST-ABLTM)550,551,551 
551 JJ=0 

DO 300 K=1,NPTS 

IF(OAHW.GE.QDQTTtK) .AND.QAHW.LT.QODTT (K+1 )) JJ=K 
IFUJ.NE.O) GO TC 31C 

llO XXX = l'(GCRXlJJ + l >-QORX (JJ ) )/(QDOTT(JJ + l)-QOOTT( JJ) ))*(QAHW- 
IQDOTT(JJ)) +QORXUJ) 

IFnjK-l)577,580,580 
577 RRR=XXX#DELTIN 
XA1=XA1-RRR 
VA1=XA1*AA1 
GO TO 430 

58C RRR=QAHM/(XXX*RH01) 

XAl=XAl-RRR’fOELTlM 

VA1=XAI*AA1 

430 IFtXAl)790,790,550 
79C WRITE(6,792) 

792 F0RHAT?//2X,’ ABLATION LAYER HAS BEEN COMPLETELY ERODED’) 
IZZ=IZZ+1 
55C T1I=T1F 
T2I=T2F 
T3I=T3F 
T41=T4F 
T5I=T5F 
T6I=T6F 
T7I=T7F 
T8I=T8F 
T9I=T9F 


HAIN4090 

MAIN4100 

HAIN4ilO 

HAIN4120 

HAIN4130 

MAIN4140 

KAIN4150 

MAIN4160 

MAiN4170 

KAIN4180 

MA1N4190 

MAIN4200 

MAIN4210 

HAIN4220 

MAIN4230 

MA1N4240 

MAIN4250 

MAIN4260 

HA1N4270 

MAIN4280 

MAIN4290 

MAIN4300 

MAIN4310 

HAIN4320 

HA1N4330 

MAIN4340 

MAIN4350 

MAIN4360 

MAIN4370 

MAIN4380 

MAIN4390 

MAIN4400 
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7C 

8CC5 


T10I=T10F 

IF( £-J+l)3,70,70 

-CONTINUE- 

GO TO 17 

STOP 

END 


PAI N4410 

-MAINA430 

MAINA440 

PAIN4450 

MAINA460 


BTO 



NQLDW1 n, THE ABLATIOM PROGRAM (CONTIN UED) 


SAMPLE PROBLEM NO. I 0AYC^ET ANTE^^A L*EDGEDG6 TEMPERATURE 


INPUT DATA 


J*200 

XKAsO. 

XKF*»0, 

RHCIsQ 

RHC6SO 

CPAsQ« 

CPF«0, 

TLI*0* 

T6I«0, 


T!MG=0.0 
33300-04 
2i67D-0l 
«nO00 03 
17000 03 
23000 00 
23000 00 
53000 03 
530OD 03 


OELXbO.63330-03 

uuc.o 

U6>0»0 

vuo*o 

V6cQ«0 

EP2=0*lC0OO-O3 
NP7S» 2 KJK=0 


eKic=o 

XKB=0. 33300-04 
XK0-»Q*26670-0l 
ftHO2s0.1I0OC 03 
RH07»0.1700D 03 
CPB«0*23000 00 
CPGa0,230OO 00 
T2I»0. 53000 03 
T7I=0*5300D 03 


eoooD 00 

XKC«0426670-01 XKO«0, 26670-01 XKG=0. 26670-01 

XXH*0.2667D-01 XK I»0.2667D-0l XK J«0*2667D-01 

RH03s0«170CID 03 RHOAsQ.ITOOD 03 RK05«0.1700D 03 

RH0e®O*l700D 03 RHOS=C, 17Q0D 03 RHOl 0=0. 17000 03 

■ ■ “ CP0»C.23C0D 00 CPE=0.23000 00 

CPI»0.23C0D 00 CPJ=0.2300D 00 

T4I«C*53C0D 03 751*0.53000 03 

TOIsO^SaCOD 03 7101=0.53000 03 


CPCsO*230OO 00 
CPH*0«23000 00 
731*0.53000 03 
701=0.53000 03 


06LTtH*0.5000D 00 

u 2 =o.o ua*c.o 

U7=0.0 U8=C.O 

v 2 *o.o va=o.o 

v7*c.o ve»c.o 

EP3*0. 10000-03 TINNER* 
NPTl* 18 NPT2« 10 


UAaO.O U5*0.0 

U9=0.0 010=0.0 

VA*0.0 Vb*0.0 

V9*0.0 VlOsO.O 

0.5300D 03 AE= 0.0 
NPT3= 2 KK6® 5 


6E= 0.0 


TIME 


OOOT 


0.0 


O.o 


0.2SOOCCD 

01 

0.0 


0.3500CCD 

01 

0.3904000 

02 

0.4400CCD 

01 

0.168560C 

03 

0.50000CD 

01 

0.150550D 

03 

0.8400CCD 

OL 

0.6600000 

02 

o.iooocco 

02 

0.9006000 

02 

0.15000CD 

02 

0. 1694800 

03 

0.20000GO 

02 

0.214990D 

03 

0.2500CCD 

02 

0. 184650D 

03 

0.2750CC0 

02 

0.1961700 

03 

0.30400CO 

02 

0. 206270 D 

03 

0.325OCCO 

02 

0.1346100 

03 

G.3S0CCC0 

02 

0.805400D 

02 

0.4000CCC 

02 

0.213600D 

02 

0.42SO0CD 

02 

0.8710000 

01 

O.SOOOOCD 

02 

0. 0 


O.IOOOCCD 

04 

0.0 



0.0 


0. 1290000 

03 

0.25000CD 

01 

0.131000D 

03 

0.35000CO 

01 

0.197000D 

03 

0.4400COD 

ox 

0.2950000 

03 

O.SOOOOCD 

01 

0.2850000 

03 

0.84QOOCO 

01 

0.2370000 

03 

O.IOOOGCO 

02 

0.268000D 

03 

C. L500CCD 

02 

0.4110000 

03 

0.20000CD 

02 

0.6920000 

03 

0.250000D 

02 

0. 130600D 

04 

0.275000D 

02 

0* 1833000 

04 

C.304OCCD 

02 

0.2822000 

04 

0.3250CC0 

02 

0.2779000 

04 

0.36000CD 

02 

0.2742000 

04 

O.AOOOOCD 

02 

0.2634000 

04 

0.42S000D 

02 

0.2588000 

04 

Q.SOOOCCD 

02 

0.2300000 

04 

O.IQOOOOD 

04 

0.4000000 

03 

TIME- 


QRAO 


0*0 


0*0 


O.IOOOCCD 

04 

0.0 



QORX(JJ) 
0.200000D 04 
0.2000000 04 


QOOTTI 

0.0 

O.IOOOCCD C4 


1JK=1 IHM=0 


VAI= 0.833300D-02 
VA6® 0.8333000*^03 
XE« 0.8333300-03 


VA2* 0.416700D-02 
VA7« 0. 8333000-03 
AX= 0.694439D-06 


VA3= 0. 6333000-03 VA4* 0.8333000-03 

VA8= Q.B33300D-03 VA9= 0.0333000-03 

VE* 0.578697D-09 XX* 0.120000D 04 


VA5 = 

VA10= 


0.8333000-03 

0.833300D-03 


TIME * 0.250000D 01 

ELEMENT TEHP.S ARE IN DEGREES F 


TIF =0.4965170 02 T2F =0.6999340 C2 
T5F =0.6999380 02 T6F =0.6999380 02 
T9F =0.6999380 02 T10F=0. 6999380 02 
ELEM 1 THICKNESS=0. 8333000-02 


TIEE = 0. 5000000 01 

ELEHEM TEHP.S ARE IN DECREES F 

TIF -0.5441060 03 T2F =0.7668640 C2 

tSF =0.7626690 02 T6F =0.7623250 02 

T9F =0.7617070 02 T10F=0.76163BD 02 

ELEH 1 1HICKNESS=0. 8333000-02 

TIFE • 0.7500000 01 

ELEMENT TEHP.S ARE IN DEGREES F 

TIF =0.5638080 03 T2F =0.9483660 02 

T5F =0.9441220 02 T6F =0.9437740 C2 

T9F =0.9431470 02 T10F=0.943077D 02 

ELEH 1 TNICKNESS=0. 3333000-02 

TIRE = O.IOOQOOD 02 

ELEMENT TEHP.S ARE IN DEGREES F 

TIF =0.5394170 03 T2F =0,1104260 C3 
T5F =0.1100390 03 T6F =0.1100070 03 
T9F =0.1099500 03 T1CF=C. 1059440 03 
ELEH 1 THICKNESS=0. 8333000-02 

TIME = 0.1250000 02 

ELEMENT TEHP.S ARE IN DEGREES F 

TIF =0.7285570 03 T2F =0.1289210 03 

T5F =0.1283B1D 03 T6F =0.1283370 03 

T9F =0.128257D 03 T10F=0, 1282480 03 

ELEH 1 THICKNESS-Q. 8333000-02 

time = 0,1500000 02 

ELEMENT TEHP.S ARE IN DEGREES F 

TIE =0.9713690 03 T2F =0.1548180 03 

TSF =0.1540820 03 T6F =0.1540220 03 

T9P =0.1539130 03 T10F=0, 1539010 03 

ELEH 1 THICKNESS-0. 833300D-02 

TIME = 0.1750DOD 02 ' 

ELEHEM TEHP. S ARE IN DEGREES T 

TIF =0.1313690 04 T2F =0.1899960 C3 

TSF =0.1089840 03 T5F =0.1809010 03 

T9F =0.1887510 03 Tl 0F=O. 1887350 03 
ELEH I 7HICKNESS=0.833300D-02 


TIME = 0.2000000 02 

ELEMENT TEHP.S ARE IN DEGREES F 

TIF =0.1704960 04 T2F =0.2374080 03 

TSF =0.2360860 03 T6F =0.2359770 03 

T9F =0,2357820 03 TL0F=O. 2357600 03 
ELEH 1 THICKNESS=0. 8333000-02 


TIME = 0.2250000 02 

ELEMENT TEHP.S ARE IN DEGREES F 

TIF =0.2OOD0OD 04 T2F =0.2971120 03 

T5F =0.2955760 03 T6F =0:2954500 03 

TSF =0.2952230 03 T10F=0. 2951980 C3 

ELEH 1 THlCKNESS=0. 8333000-02 


NQLDW117, THE ABLATION PROGRAM (CONTINUED) 


T3F =0.6999370 

QZ 

T4F =0.6999370 02 


T7F *0.6999380 

02 

T8F =0.699938D 02 




QB0UT=O. 3026690-01 

CRADINTERNAL=-.565292D-10 

T3F *0,763^630 

02 

T4F *O.763081C 02 


T7F =0.7620500 

02 

T8F *0.7618440 02 


QAKWsO.5223180 

02 

QRDUT=0. 3057940 00 

ORADINTERNALsO. 4667290-07 

T3F =0.9A50280 

02 

T4F =0.9445400 02 


T7F =0.9434950 

02 

TSF *0.943286C 02 


QAHW*-.470678D 

01 

QR0UT=0.438692D 00 

QRAOINTERNAL*0.315669D-06 

T3F =C.11C1ZZ0 

03 

T4F *0.1100770 03 


T7F *=0.1099820 

03 

T8F =0.1099630 03 

t 

CAKH=0.959B080 

01 

QRQUT=0.3703S7D 00 

ORADINTERNAL-O. 5052930-06 

TSF =0.1284960 

03 

T4F =0.1284340 03 


T7F =0.1283010 

03 

TSF =0.1282750 03 


0AHW=0. 2305750 

02 

QR0UT*0.7O7267D 00 
1 

QRADINTERNAL=0. 8999480-06 

T3F =0.1542390 

03 

T4F =0.1541540 03 


T7F =0.1539730 

03 

TSF =0.1539370 03 


QAHU=0.265800D 

02 

0RQUT=0.150O25D 01 

0RADINTERNAL=0. 139039D-05 

T3F =0.1891990 

03 

T4F =0.1890830 03 


T7F O0.188834D 

03 

TSF =0.188784D 03 


CAHW=0. 4151920 

02 

QROUT=0.347997D 01 

0RAOINTERNAL-0.215622D-05 

T3F S0.Z363680 

03 

T4F =0.236216D 03 


T7F *0.2358900 

03 

T8F =O.23502SD 03 


OAKW*0.4840440 

02 

0ROUT=0.7a39110 01 

0RADInTGRNAL=O. 3405120-05 

T3F *0.2959030 

03 

T4F =0.2957270 03 


T7F *0.2953490 

03 

T8F =0.2952730 03 


QAHH=0. 7809880 

02 

gROUT=0,1407T40 02 

QRAD1NTERNAL=0. 5416660-05 


TIME 


0.2500000 02 
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EtEHENT TEMPOS ARE IN DECREES F 


TIF =0.2000000 04 
T5F *0.3593890 03 
T9F «0.359014D 03 


ELEP I 7HrCKNESS=0.731 llOC-02 


NOLDW1 17, THE ABLATION PROGRAM (CONTINUED) 


T2F «0.36lO2lD 03 
T6F =0.3592550 03 
T10Fa0.3S8987D 03 


T3F =0.3597370 03 
T7F =0.3591400 03 
CAhW*0.l02729D 03 


T4F =0.3395490 03 
T8F =0.3590680 03 
OROUT=0.140774D 02 


0RA0rNTERNAL=0. 0241960-05 


TIKE = 0.275COOO 02 

ELEMENT TEHP.S ARE IN DEGREES F 

TIF =0.2000000 04 T2 F =0.4292860 03 

T5F =0.4275200 03 T6 F =0.4273750 03 

TSF =0.4271140 03 T1 0F=0.427O85D C3 
ELEK I THICKNESS=0. 5998500-02 


T3F =0.4278970 C3 
T7F =0.4272590 03 
QAHW*G«I342ITD 03 


T4F =0.4276940 03 
TaF =0.4271720 03 
0R0UT=0. 1407740 02 


QRAOIHTERNAL*0. 1205850-04 


TIKE = 0.3000000 02 

ELEHEM TEHP.S ARE IN DEGREES F 

TIF =0.2000000 04 T2F =0.5054760 C3 

TSF *0.5034520 03 T6 F =0.5032860 03 

T9F =0.5029600 03 T10F=0.502955C 03 

BLEK 1 THICKNESS=0. 4339200-02 


T3F =0.5036830 C3 
T7F =0.5031530 03 
QAKVI=0«1614860 03 


T4F =0.5036510 03 
T0F aO. 5030540 03 
QROUT=0.140774D 02 


QRADI NT ERNAL=0. 1742090-04 


TIKE a 0.3250000 02 

ELEHEM TEHP.S ARE IN DEGREES F 

TIF *0.2000000 04 T2 F =0.5947430 03 

TSF =0.5923620 03 T6F =C.59Z166D C3 

T9F =0.5918150 03 Tl 0F=0. 591775D C3 
ELEF 1 THICKNESS=0.262383C-02 


T3F =0.5928700 03 
T7F =0.5920100 C3 
GAHH=0.L1537DD 03 


T4F =0.5925960 03 
T0F =0.5918930 03 
QR0UT=0. 1407740 02 


QRADINTERNAL=0. 2544710-04 


TIKE = 0.3500000 02 

ELEMENT TEHP.S ARE IN DEGREES F 

TIF =0.2000000 04 T2F *0.696179C 03 

TSF =0.6935600 03 T6F =0.6933460 03 

T9F =0*6929600 03 T10F*0. 6929170 C3 

ELPK 1 7HICKN655=0*153523C-02 


T3F *0.694119D 03 
T7F =0,6931740 03 
CflHH=C, 6902770 C2 


T4F *0.6938180 03 
T8F *0.6930450 03 
QRQUT*0. 1407740 02 


0RAOINTBRNAL=0.3755180-0V 


TIKE = 0.375000D 02 

ELEHEM TEHP.S ARF IN DECREES F 

TLF =0.2C0QQ00 04 T2F aC.8a3886D C3 

TSF =0.8011820 03 T6F =0.8009600 03 

T9F =0.8005610 03 T10F»0 .8005 170 03 

ELEH 1 THICKNESS=0.677B68C-03 


T3F SC.801759D 03 
T7F =0.8007830 C3 
QAHW=0.430804D 02 


T4F a0.80l449C 03 
T8F =0.0006500 03 
0R0UT=0. 1407740 02 


QRAOINTERNAL=0. 5467990-04 


TIHE a - 0*4000000 02 

ElEKENT TEHP.S ARE IN DEGREES P 

TIF =0,196248D 04 T2 F =0.9110860 03 

TSF »0.9C8580D 03 T6F =0,9083740 C3 

T9F *0.908004D 03 T1 0P=0 .9079630 C3 
ELEK 1 THICKNeSS=0.55l 185C-03 


TSF =0,9091150 03 
T7F =C. 9082100 03 
QAHU=Q.193991D 02 


T4F =0.9088270 03 
T8F *0.90B086C 03 
0R0UT=0.13471LD 02 


QRADINTgftNAL=0.7725240-04 


TIKE = 0.425000D 02 

ELEMENT TEHP.S ARE IN DEGREES F 

TIF *0.181053D 04 T2F *0.1000520 C4 

TSF =0.9985710 03 T6 F =0.9984120 03 

T9F a0.99ei24D 03 Tl 0F=0 .998092D C3 
ELEK 1 THICKNESS=0. 551 1850-03 


T3F =0.9989070 C3 
T7F =0.9982840 03 
CAHWaC. 8077340 Cl 


T4F =0.9987630 03 
T8F *0.9981080 03 
QROUTaO.1051600 02 


CRADINTERMAL*0. 1019720-03 


TIKE = C. 4500000 02 

ELEKENT TEHP.S ARE IN DECREES F 

TIF =0.1658890 04 T2F =0.1067220 C4 

T5F *0.1065800 04 T6F =0.1065680 C4 

T9F *0,1065470 04 T10F=0. 1065450 04 

ELEK 1 THICKNESS*0. 5511850-03 


T3F =0.1066100 04 
T7f *0.1065590 04 
QAHH*0. 4999250 01 


T4F S0.106594C 04 
rSF =0.1065520 04 
QR0UT=0. 7947490 01 


QRADINTERNAL*0 . 1242140-03 
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TINE * 0,47SOOOO 02 

ELEMENT T6KP.S ARE IN DEGREES F 

TIF »0a535T30 04 T2F =0,IU5400 04 

T5F *0,mA3q0 04 T6F *0,1114310 04 

T9F =0,m4L6D 04 T10F»0, 1 L14HD C4 

ELEK 1 THICKNeSS*0,55llS50-03 


NQLDW117, THE ABLATION PROGRAM (CONTINUED) 


T3F *0,1114600 04 
T7F »{J,m424D 04 
QAKW«0«2641S60 CL 


T4P «0, LI 14490 04 
TOP *0aU4l9C 04 
QR0UT°0.623e42D 01 


QRAD INTERNAL-0* 142406D-03 


7IFG * 0.5000000 02 

ELEMENT T6MP.S AftE IN DEGREES F 

Tlf =0.L427LID 04 T2F *C*ll4664C C4 
T5F =0.1UT970 04 T6 F »0.1L47920 04 

T^P :;0.1l47a2D 04 T1 OP=C. 1 147S1D C4 

ELEN 1 THICKNESS*0.5S11G5C-03 


T3F *0*U4eilD C4 
T7F «0, 1147870 04 
CAHW>C.2418500 CG 


T4F «C. IL4004D 04 
TOF *0.1147840 04 
0R0UTs0»4983070 01 


CRAOINTERNAL^O. 1564100-03 


TIME s 0.525C000 02 

ELEPEM TEMPOS ARE IN DEGREES F 

UF *0.1337920 04 T2F «C.116967D C4 

T5F *0.1169260 04 T6F *C.ll6923D C4 

T9F *0.1169170 04 Tl 0F=0 . 1 16916D 04 
ELEM 1 THiCKNeSS»0.55Lia5C“03 


T3F *0.1169350 04 
T7F *0.1169200 04 
QAHU*0*O 


T4F >s0.116930C 04 
T6F *0,1169180 04 
QROUr*O.40S629D 01 


ORAOINTERNAL*0. 165931D-Q3 


TIME = 0.550000D 02 

eLEMEM TEHP.5 ARE IN DEGREES F 

UF «0. 1272490 04 T2 F =0,1181800 04 

T5F =0.1101580 04 T6F =C. 1181560 C4 

T9F *0.1181530 04 T10F=0 . 1 18 15 20 04 

ELEH 1 THlCKNeSS=Q. 5511850-03 


T3F =0,1181620 04 
T7F =0.118165C 04 
OAhW=C,0 


T4F *0,1181600 04 
T8F *0«118153C 04 
QRaUT=0,35CI9Z0D 01 


0RAOtNTERNAL=0 ,1717520-03 


TIME * 0.575000D 02 

SLEHeM TEHP.S ARE IN DEGREES F 

riF =0.122345D 04 T2F *0.Hfi765D C4 

T5F *0,1167560 04 T6F *0.1187550 04 

T9F »O.110754D 04 Tl OF=C , 1 187540 C4 
ELEM 1 THICKNFSS=0,551185C-03 


T3F =0,1187580 04 
T7F *0.11B755D 04 
CAHH*0,0 


TAP =0.1187570 04 
T8F *0,1187540 04 
QR0UT*0*3IL931D 01 


0RAOINTERNAL*0, 1747850-03 


TIME = O.60OCO0D 02 

ELEMENT TEMP.S ARE IN DECREES F 

TlF =0.118595D 04 T2F =0.1189050 04 

T5F =0.1189050 04 T6F =0.1189050 C4 

T9F *0.1109050 04 Tl 0F=0 .1 18905D 04 
ELEH 1 1HICKNESS=0.551 I85C-03 


T3F =O.1109OSC 04 
T7F =0.1189050 04 
OAHW=0.0 


T4F =0.1189050 04 
T8F *0,1189050 04 
QR0UT-O,ae4432D 01 


QRAPiNT5RNAL*0. 1757730-0? 


TIME » 0.6250000 02 

ELEMENT TEMP.S ARE !M DEGREES F 

TIF »0.115666D 04 T2F *0.1187290 04 
T5f *0,1187370 04 T6F =0.1187370 04 

T9F =0,1187380 04 TIOF=O.L1B7J9D C4 

ELEK 1 TKICKNESS=0. 551 1650-03 


T3F *0.1187350 04 
T7F =0,1187380 04 
QAHHsC.O 


T4F *0.1187360 04 
TBF *0*1167380 04 
QRaUT=0«264296D 01 


QRAO(NTERNAL=0. 1752920-03 


TIME = 0.650000D 02 

etEHEKT TEMP.S ARE IN DEGREES F 

TIF =0.1133280 04 T2F =0.1183320 C4 
T5F =0.1183440 04 T6F =0.1183450 04 
79F =0.1103460 04 Tl 0F=0, 1183470 04 
ELEM 1 THICKNESS=0.55lia5C-03 


T3F *0,1183410 04 
T7F *0.118345D 04 
CAhH*0.0 


T4F =0,1183420 04 
T0F *0.1163460 04 
0R0UT«0. 2490430 01 


QRAOINTERNAL-0.173779D-03 


TIME * C.675C00D 02 

eLEMEM TCMP.S AR£ IN OEGREES F 

TIF =C. 1114200 04 T2F =0,1177780 04 
T5F =0.1177930 04 T6F =0,1177940 04 

T9F *0,1177960 04 T10F*0,ll7797D 04 

eiEP I THICKNESSaO.551 105D-O3 


T3F =0.1177900 04 
T7f =0.1177950 04 
QAHW=0.0 


T4P ■0.1177910 04 
T8F *0,1177960 04 
QR0UT*0. 2371150 01 


QRAOIMTGRNAL *0,1715560-03 
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MQLDW117^THE ABLATION PROGRAM (CONTINUED) 


TIPE * 0.7000000 02 

ELEHEAT TEHP.S ARE IN DEGREES F 

TIF *0.1098210 04 T2F bO*U 7U50 04 
T5F *0,1171330 04 T6F *0.n7l34D 04 

T9F *0.1171370 04 T10F*0.ll7l37D C4 

ELEK I TK1CKNESS*0«53116SD>03 


T3F aO, 1171290 C4 
T7F =0.1171350 04 
gAHU*0«0 


T4F S0.117131D 04 
T8F *C.ll7136D 04 
QRQUT*0«2263600 01 


QRA0INTERNAL*O. 1680590-03 


TIP6 * 0.725000D 02 

ELEHEN1 TEHP.S ARE IN DEGREES F 

TIF *0.1064500 04 T2F *0.1163780 04 
T5F *0.1163970 04 T6F *0.1163990 04 
79F a0mll64O2D 04 T10F»0. 2 164020 04 

ElEK 1 THlCKNESS*O.551L95C-03 


T3F =0.1163930 04 
T7F sO. 1164000 C4 
CAhW*0.0 


T4F *0.1163950 04 
T8F *0.1164010 04 
OROUT«O.220214O 01 


0RA0JNTERNAL*0. 1656580-03 


TIPE * 0. 7500000 02 

ELEMENT TEHP.S ARE IN DEGREES F 

TIF *0.1072530 04 T2F *0.115592D C4 

T5F =0,1156120 04 T6F *0.1156140 04 

T9F *0.1156160 04 T10F=0. 1156170 04 

ELEH 1 THICKNESS=0.5SllB5C-03 


T3F «0.U5608O C4 
T7F =0.1156150 04 
OAHHsQ.O 


T4F *0-1156100 04 
T8F *0. 11S6I6D 04 
QR0UT«0.213305D 01 


QRAD1NTERNAL=0. 162674D'-03 


TIME » 0.775000D 02 

ELEHEhT TEHP.S ARE IN DEGREES F 

TIF *0.1061860 04 T2F *0.1147740 04 

T5F *0.1147950 04 T6F »C.U4797D C4 

T9F *0.1148000 04 TIO FaQ. H4800D 04 

ELEH 1 THICKNESS*0.551I85C-03 


T3F *0.1147910 04 
T7F *0.1147980 04 
QAhW=0.O 


T4F *0.1147930 04 
TQF =0. 114799C 04 
OROUT*0.207307D 01 


QRADlNTERNALaQ, 1593960-03 


TIME B D.BOOOOOD 02 

ELEMENT TEHP.S ARE IN DEGREES F 

TIF *0.1052160 04 72F =0.1139390 C4 

T5F *0.1139600 04 76F *0.1139620 04 

T9F =0.1139650 04 TIOF-Q. 1139650 C4 

ELGM I THlCKNESS*0.S5n650-03 


T3F =0.1139550 C4 
T7F *0.1139630 04 
CAhI« = C.O 


T4F =0.1139580 04 
T8F =0.113964D 04 
QR0U7=O. 2019070 01 


CRAOINTERNAL*0. 1560060-03 


TIME * 0.8250000 02 

ElEKEM TEHP.S ARE IN DECREES F 

71F *0.1C4321D 04 72F »0.113095D 04 

T5F =0.1131160 04 T6F =0.1131180 C4 

T9F =0.1131210 04 Tl0F*O, 1131210 04 
ELEH I 1HICKNESS*0.551185D-03 


T3F =0.1131110 04 
T7F =0.1131190 04 
OAHH*0.0 


T4F =0.113114C 04 
T8F =C.113120D 04 
QRQUT=0.197182D 01 


ORADINTERNALbO. 1527870-03 


TIME = 0.8500000 02 

ELEHEM TEHP.S ARE IN DEGREES F 

TIF =0.1034830 04 T2F *0,1122490 04 

TSF *0.U2270O 04 T6F *C. 1122720 C4 

T9F *0.1122750 04 T10F*0 . Z 12275D 04 

ELEH 1 THICKNESS*0.551IB50-03 


T3F *0,1122650 04 
T7F *0.1122730 04 


T4F *0.1122680 04 
T8F *0.U2274L D4 
0R0UT»0. 1927740 01 


ORADINTBRNAL =0.1495270-03 


TIME * 0.8750000 02 

ELEMENT TEHP.S ARE IN DEGREES F 
VlF *0..102690D 04 


T2F *0.U!406C C4 
T6F *0.1114290 04 

04 T10F*0.-iU432D C4 

1 ThlCKNE$$*0. 5511650-03 


TSF *0.1114270 04 
T?F «0.lJlA32D 
ELEH 


T3F *C.111422D 04 
T7F *0.1114300 04 
qAHW*0.0 


T4F =0.1114250 04 
T8F =0,1114310 04 
QR0DT*0«ld6679D 01 


QRACINT£RNAL*0. 1463260-03 


TIME * 0.9000000 C2 

ELEMENT TEKF.S ARE IN DECREES F 


TIF 

T5F 


>0.1019330 04 
>0.1105900 04 


T2F *0.1105700 04 
T6F *G.UC592D C4 


T3F *0.1105860 04 
T7F =0.1105930 04 


T4P =0.1105880 04 
T6F =0.1105940 04 
Bt5 


a 
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NaLDW117,THE ABLATION PROGRAM (CONTINUED) 

T9F =6^1105956 04 TIO F=0. 1105950 04 -QAHW=0.0 QR0UT=0.’l848360 01 QRADINTERNAL^O.il43198D“03 

ELEM 1 7H1CKNESS=0. 5511850-03 


TIME = 0.9250000 02 

ELEMENT TEMP.S ARE IN DEGREES F 

TIF =0.1012040 04 T2F =0.1097420 04 T3F =0.1097580 04 T4F =0.1097600 04 

T5F =0.1097620 04 T6F =0.1097640 04 T7F =0.1097650 04 T0F =0.1097660 04 

T9F =0.1097670 04- T10F=0. 1097670 04 aAHM=C.O , QR0UT=0.1S1201D 01 QRADINTERNAL=0.-140149D-03 

ELEM 1 THICKN6SS=0. 5511850-03 


TIME = 0.950000D 02 

element TEMP.S ARE IN DEGREES F 

TIF =0.1005000 04 T2F =0.1089240 04 

T5F =0.1089440 04 T6F =0.1089460 04 

T9F =0.1089490 04 T1 OF=C. 1 0B949D 04 
ELEM 1 THICKNESS=0.551185C-03 


TIME = Q.975000D 02 

ELEMENT TEMP.S ARE IN DEGREES F 

TIF =0.9981620 03 T2F =0.1081180 C4 T3F =0.1081340 04 T4F =0.108136C 04 

T5F =0.1081380,04 T6F =0.1081400 04 T7F =0.1081410 04 T8F =0.1081420 04 

T9F =0.1081430 04 T10F=0. 1081430 04 QAHW=0,0 QROUT=0. 1744290 01 0RA0INTERNAL=0. 1343070-03 

■ ELEM 1 THICKNESS=0. 5511850-03 


T3F =0.1089400 04 T4F =0.1089420 04 

T7F =0.1089470 04 T8F =0.1089480 04 

GAFW=0.0 QROUT=0.17774CD 01 ORAD INTERNAL=0., 1371850-03 


B16 
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APPENDIX C 

This appendix supplies a program listing of NQLDW040, the Orbiting Vehicle Cargo 
Bay Box Mean Temperature Program. As with the other two programs (Appendices A 
and B), a sample problem pnntout is also given. The input listings at the beginning of 
the sample problem, in conjunction with the summarized instructions of Figure 3-4 
should serve, first, to check out the user’s deck and then to permit the mastenng of all 
possible input electives. 


Cl 



LEVEL 21.6 (DEC 72) 


NQLDW(MO SHUTTLE CANNISTER TEMP PROGRAM 
OS/360 FCRTRAN H ' 


CATE 78.235/10.27.23 


COMPILER OPTIONS - NAHE= HA IN ,OPT=02,L INECNT = 82. SI Ze=OCOCK, 


ISN 

ISN 


ISN 

ISN 


SN 

SN 

I 

SN. 

SN 

-SN 

ISN 

ISN 

ISN 

ISN 

ISM 


CC02 

CC03 

CCOA 

0005 


CC06 

CC07 

0008 

CC09 

CCIO 

OCU 

0C12 

CC13 

CCIO 

CC15 

CC16 

CC17 


WRni;= MR IN .Dl'l =U2iL INELH I = 82t! I Le = Ul.UVR.« 

SOURCE, EBCC lO.NOL 1ST .NDDECK , LOAD, MAP, NOGD! T , lO.XREF 
THE SHUTTLE BAY BOX MEAN TEMPERATURE PROGRAM 

XKA.XKB.ETC ARE THERMAL CONDUCTIVITY CQEEFICIFNTS AT 5A0 DEG R 
FOR EACH ELEMENT 

THERMAL CONDUCTIVITY COEFFICIENTS ARE IN BTU/FT SEC C EG R 
CPA.CPO.ETC ARE SPEC.hSATS AT 5A0 DEG R FOR EACH ELEMENT 
SPECIFIC HEATS ARE IN 8TU/LCM 

RHD1.RH02 THRU RHClC = density OF RESPECTIVE ELEMENT MATERIAL 
DENSITY IS IN LBH/ET3 

TLI,T2I,ETC =1NITIAL ELEMENT TEMPERATURES I DEG Rl 
UL,U2,THRU UlO ARE COEFF.S IN COND.CCEFF EQ.: K= XKA4L lATHEST 
V1,V2,THRU VIO ARE COEFF.S IN SPEC. HEAT EQJ CP1=CPA+V1*TWEST 
THEST = ESTIMATED WALL TEMPERATURE (CORRECTED BY ITERATION) 

IF U ANC V ARE INPUT AS O.THCN K AND CP ARE INDEPEN. OF TEMP. 
TIMO sINITIAL TIME IN TRAJ. (CAN BE C DR GREATER THAN 0) (SEC) 
OELX = ELEMENT THICKNESS (FTMIF UK IS GREATER THAN 0, 

DELX IS THE MINIMUM ELEH. THICKNESS) 

ALPHA = ABSORPTIVITY IN THE SOLAR ENERGY BAND OF THE CANNISTER 
TOP (SURFACE E). NOTE THAT ALPHA IS SET AUTCMATI CALLY 
TO THE EP2 VALUE HHFN INPUT 'TSRCE' EXCEEDS 3000 DGGR. 
EP2=AVERAGE CANNISTER SURFACE EMTSSIVITY 

=SUMHAT!0N1AA( I) X E 1 I ) ) /SUMMAT ION I A A I [ ) 1 
WHORE 1=1,6 


MAINOOlO 

MAIK0020 

NAIN0030 

MAINOQAO 

MA1N0050 

HAIN0060 

PAIN0O7C 


MA 

HA 

HA 

HA 

HA 

HA 

HA 


H0080 
N0090 
NOlOO 
NOllO 
N0120 
N0130 
. .. NOIAO 
HA1N0150 
HAIN0160 
HAIK017C 
HAIN0180 
HA1N0190 
HAIN020G 
HAIN0210 
KAIN0220 


EP3 = EHISSIVITY OF SURFACE TO WHICH ELEMENT 10 RADIATES, INPUT ASHAIN0230 
EMISSIVITY OF BAY LINER SURFACE HAIN02AO 

J= NO. OF TIME STEPS TO BE CALCULATED (MAXIMUM VALUE = 20901 HAIN0250 

1JK=0 PRCGRAM RUNS REGULAR CUBIC ELEMENTS HAIN0260 

=1 PRCGRAM USFS ANALDGDUS ELEMENTS — USER HUST INPUT XAI , MAIN0270 

AAI AND AREFI CARDS MAIN0280 

KK6= NO. OF DELTIM'S BETWEEN PRINTOUTS HAIN0290 

OELTIH IS THE CALCULATICN TIME STEP I SEC ) .CDKSTAKT IF NFTSA « 0 HAIN0300 
IT NPTS4 IS GREATER THAN C (IT CANNCT BE GREATER THAK 10). HA1N0310 

ENTER OELTIM = OELTH(l) AND INPUT HPTSA PAIRS OF WTIMEIII, HAIN03Z0 

DELTHIl). IF KFTSA= 0,ND ENTRIES OF WTI PE ( I ) .OELTM I U ARE HAIN0330 

HADE. HAIK0340 

NPTS5=NG,DF T IME I , T IN, TOUT, TSRCE6PS I CARDS TO BE INPUT HAIN0350 

NCTE THAT EACH CARD ENTERS 1 VALUE OF EACH PARAMETER MAIN0360 

PSI=ANGLE BETWEEN NORMAL TO BOX SURFACE AND IMPINGING SOLAR HAIN0370 
RAYS (=0 FDR SLN DIRECTLY 'GVERI-EAD* TO SURF. ’EM MAIN03B0 

QIN= INTERNALLY PHCCUCEC HEAT (BTU/SEC) CIVICED BY TFE TCTAL MAIN039O 

EXTERNAL SURFACE AREA OF BOX (FT2) (UNITS ARE BTL/FT25ECI HAIN0400 
TOUT=TEHP.TD WHICH BAY IS RADIATING (DFGR) MAINOOlO 

=0 IF BAY LCCKS AT SUN 0R CEEP SPACE MAIN042O 

=510 DEGR IF GAY LOOKS AT EARTH MAIN0430 

TIN= BAY HEAN TEMPERATURE (DEGR) HAIN044Q 

=617 DEGR IF BAY LCCKS AT SUN HAIN045C 

=455 DEGR IF FAY LOOKS AT FARTH MAIN0460 

=221 DEGR IF BAY LOOKS AT DEEP SPACE MAIN0470 

ICTHER VALUES CAN D£ INPUT FOR OTHER DROITS) HAINOAOQ 

TSRC£=TEMP.CF EXTRAVEHICULAR HEAT SOURCE HAIN0400 

=11290 DEGR IF BAY LOOKS AT SUN HAIN0500 

=510 DEGR IF BAY LOOKS AT EARTH NAIN051O 

=0 DEGR IF EAY LOOKS AT DEEP SPACE HA1N0S20 

NOTE - VALUES OF T IHEl, TIN, TOUT, TSRCE S PSI HUST CCVFR THE MAIN0530 

ENTIRE TIME RANGE CF THE PROBLEM. MAIN0540 

IMPLICIT REAL*8 lA-h.O-Zl ' MAIN0550 

DIHENSIGN XTIHEI 100),ODQTT(1001,DELTHI10),WTIHE(10),eOQn3000),TIHHAIN0560 
lEI (2C),T1N(20) .TOUT (20 1 ,PSI (20 ) . TSRCE 1 20) HAIN0570 

REAL*4 TnLE(20) MAIN0580 

17 REAOI5,25,END=8005)TFTLC. HAIN059Q 

IJ, EP2.EP3, ALPHA, TIMC,APTS1,NPTS4,KK6,NFTS5, HAIN0600 

2XKA,XKB,XKC,XKD,XKE,XXF,XKG,XKH,XKI,XKJ,RH01,RH02,RHC3,RH04,RHD5,RHA!N061Q 
3H06,RH07,RH06,RH09,RH010,CPA,CPB.CPC,CPO,CPE,CPF,CPG,CPH,CPI ,CPJ,TMAIN06ZO 
4lI,T2I,T3l,T41,T5I,T6I,T7I,T8t,T9I,T10I,0ELX,DELTIM, NAIN0630 

SU1,U2,U3,U4,US,U6,U7,UB,U9,U10,V1,V2,V3,V4,V5,V6,VT,VS,VO,V10,'IJK,HAIN0640 

MAIK0650 

MAIN0660 
HAIN0670 
MA1N06BO 
HAIN0690 
HAIN0700 
HAIN0710 
MAIM0720 
MAIN0730 
MAIN0740 
HAIN0750 
HA1N0760 
HAIN0770 
RHHAIN078C 


6KJK 

READ (5, 79 ) IXTIME(JJ),QOOTTtJJ ), JJ=1,NPTS1) 

IFINPTS4)617, 618,617 ^ , 

617 READ(5,79) (WTIHE I J J > .DELTMI J J 1 , JJ=1,HPTS4J 

944 FCRMATI/5X, ' WT 1 HE ( I ) • , SX, 'OELTHI I )' ) 

945 FCRPAT12X,D12.6,2X,C12.6) 

618 CCNTINUt 

79 F0RMAT(6C12.6) 

25 F0RMAT(28A4 .. 

1/ [4, IX, 3C 10.4 /DIO. 4, I3i 12, 1 3, 1 2 , 501C .4 ,B ( /7D1 C.4 ) /D1 0. 4, 21 1 > 
WRITE<6,25) TITLE 
WRITE (6,600) 

600 FCRHAT(//2X,' INPUT DATA') 

WRITE(6,e01) J,TIPC,XKA,XKe,XKCiXKC,XKE.XKF,XKG,XKH,XKlrXKJ, 
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NQLDWaSO SHUTTLE CANNISTEH TEMP PROGRAM (CONTINUED) 


ISM ccig 
ISN CC20 
ISN CCZl 
ISN CC22 
ISN CC23 
ISM CC24 
ISN CCZS 
ISN CC26 

ISN CC27 
ISN CC2S 
ISN CC29 
rSN CC30 
ISN CC31 

ISN CC32 


ISN CC33 
ISN CC3^ 
'ISN C035 
ISN CC36 

ISN CC37 
ISN CC38 
ISN CC39 
ISN CC40 
ISN CC91 
ISN CC4Z 


ISN CC43 ■ 
ISN CC9L 
ISN CC95 
ISN OC<S6 
ISN CC«7 
ISN CCAS 
ISN CCL9 
ISN CC50 
ISN CC51 
ISN CC52 
ISN 0C53 
ISN CC59 
ISN C055 
ISN CC56 
ISN OC57 
ISN CC58 
ISN CC59 
ISN CC60 
ISN CC61 
ISN CC62 
ISN CC63 
ISN 0069 
ISN CC65 
ISN CC66 
ISN CC67 


101iRHQ2tRH03.RHQ4tRH05i RHOS iRHOTtRHQ B iRHQ9,RHCL0.CPA tCPBtCPC .CPDiCHAIN0790 
2P6,CPF,CPG,CPH,CPI ,CFJ.TlI,T2I,T3I,T9I.T5I,T6I,T7l,Tai,TSItTl0I,0EHAINO8CO 
3L;<fU:fU2iU3,UArU5rU6,ll7»U8,U9,U10,Vl„V2jV3,V9,W5,V6,V7,V8,V 
99 ,V10,EP2.EP3. IJK,NPTS1»MP7S9,NPISS.KK6 PA IN082O 

601 FCRPATI/2X,' J=* . I9,3X,' T IHO= • . DIO* 9/ 2X t ' XKAs! ' .DIO. 9, 3 MAIN0830 

lX,'XK0='Dl^. 9,3X,' XKC=' C10.9,5 x,' XKC='Ei 0.9,3X.'XKE=<OLC.9/2X,' XKFNAIN089C 
2*fD10.A,3X,'XKG=* ClC.9,3X,'XKH=fD10.9}3X."XKI-=fDlO.9.3X.'XKJ = *DlO.PAINO8SO 
39 /2X ,'RHC1 = ' D10.9,3X.'RHC2 = * C10.9 ,3X, ' BHC3=' C10.9, 2X , ' RFQAo' C10.9 .MA IN0860 
93X.' PH05='D10.9/2X.' RFC6='010.9,3X,' RHC7= ’ D 1 0 .9 , 3X. ' PHOBs* C I C .9 ,3XHA IN087C 
5, 'RHC9 = 'C 10.9, 3X,’ BPCIO^'OIO. 9/'2X*^CPA=' CIO. 4. 3X,»CPe='D10. 9, 3X, "CPA IN0880 
6PC=*C10.9 ,3X,fcPD = * C1C.9.3X,’CPE = *C10.9/2X,' D10.9,3Xj'CP6=fDlHAINa890 

70.9,3X,'CPH=^DL0.9.3X,'CPI = ' C10.9 ,3X, ' CPJ=* D 10.9/2X. ’ TL1 = * Cl C.9.3XMA 1N09C0 
8 ,’i5i!:*D10,9,3X,'T3 1='D10.9,3X,'T9! = <D10.9,3X,'T5I = 'C10.9X2X.'t4i=HA 1N0910 
9^D1I>.9,3X,' T 71=^0 10. 9.3X T 'T31 = ' DIO, 9,3X>' T9 1 = ^010.9, 2Xr' TIC I «'0l0.HAINO920 
19//2X,'0E'X*' ,D10.9/2Xt’Ul=*,C10.9,3X,*U2='.ClC.9,3 , . .„KAIN0930 

2X ,'C3 = *010.4,3S,*09=< c£o.-.,3X,’U5 = >CI0.9/2X, •U6='D10.9,3X, U7='E10PAINC99C 
3.9,3X,*Ue='D10.9,3X,'L9»' CIO .9 , 3X , ■ U 10= ' CIO. 4 X2X, • V 1* ' OIC . 4 , 3X, • V2MA IN0950 
9='DlC.9,3X(' V3=' D1C.4 ,3X,’V4='D10*4,3X,*V5=' C1C.4/2X, • V6=* Ci C.9.3XHA IN096C 
5, ' V7 = 'D10.9,3X,'V8=' 010.4,3X, • V9=* Cl 0.9 , 3X, • V1C=*D 10. 9/2X, ' E P2 = ' D1HAIN0970 
6O.9,3X,'EP3=*,D10.4,3X,3 NA IN098C 

7X,' I JK=' ,I1/3X,’NP7S1=' ,I3,3X,'NPTS9=' , 13 i3 HAIN0990 

IX,'APr9S^>-;i3,Jx,>KX6=*,I3! HAINIOOO 

HRI7E(6,497) ALPHA MAlNlOlO 

997 rCRHATI/3X,' ALPHA=* .D19.6) MAIN1020 

TIKE=TIPC HAIN1030 

IJJ=0 PAIN109O 

11=0 MAINL050 

I^O PAIN1060 

KK5=1 PAIN107O 

READ I 5.920 lTHAl,THA2,THA3,THBl,THB2,THfl3,THCl,THC2,THC3,THDl,THD2.HAIN1080 
I THD3,THE1,THE2, THE3.1HE9 PAINL090 

920 r0RMATl6fcl2.6/6Dl2.t/90l2.6l PAINllOO 

IFlNPTS9)670,67l,67O MAINIUO 

670 WflIIEI6,999) ■ HAIN112C 

WRITE (6,995 MHTIHriL 1 iDELTMI L) ,L=1,NPTS9I PA INI 130 

671 WRITE(6,92liTHAl,THA2,THA3.THBl,THB2,THB3,THCl,THC2.THC3,THDl, HAINL190 

1 THD2.THD3.THE1. THEE, THE3.THE9 PAIN1150 

921 F0RMATI/3X,' PAYLOAD BCX POSITION ANGLES IN DEGREES* /3X,' THAI =• ,D12PA INL160 

1.6.2X,' THA2=* ,D12.6,2X.' THA3=' .D12.6,2y ,'THB1=' . 012 . 4 , 2X , • THe2=* , KAIN1170 
2012, 6,2X,’THE3=' ,ni2.6/3X 1HC1=* ,012.6 ,2X,' THC2=* ,nl2.6i2X, ’ THC3=KA IN1180 
3* ,D12 .6 ,2X, ' THD1=* .E12.6 ,2X, * THD2=' .C12.6 ,2X,' 7HC3=’ .012.6/3X, ' THEWA INU9C 
91 = ’ .C12.6 ,h ,’THE2=* ,C12.6,^X,' THE3=' .C12.6, 2X, * THE4« * ,D 12.6 I KAINIZOO 

read (5,922) ( TIPEI (K) , I IN ( K ) ,TCUT (K ) .TSPCE ( K ) , PS I (K ) , K = 1 .NPT55 I HAIN121C 

922 F08MATI5C12.6) PAIN1220 


read (5,922) ( TIPEI (K) , I IN ( K ) ,TCUT (K ) ,TSPCE ) K ) , PS I (K ) , K = 1 .NPT55 ) HAIN121C 

922 FORMATI5C12.6) PA{N12|0 

WRITE16.9Z3) MAIN1230 

923 FCRPAT(/3X,MIPEI(I)' ,5X,'TIN(I)* ,7X, 'TOUT( I )*,6X, 'TSRCEd )' ,5X, MA1N129C 

I'PSKIJ'I PAIN12S0 

WRITE (6, 929) (TIPEI IK) ,TIN (K) .TOUT (K) .TSRCEIK ) , PS I (K ) ,K= 1 ,NPT SS > MAIN1260 

929 FCRMATI/2X,C12.6,LX,C12.6,lX.CL2.6,lX,D12.6,lX,D12.6l PAIN1270 

REA0(5.93O)AAA,AAB.AAC,AAD,AAEt AAF HAINL230 

930 F0RPATI6C12.6) PAIN12SC 

write I 6.93l)4AA,AAE,AAC,AAD,AAE,AAF PAIN1300 

931 F0RHAT{X3X,'THE BOX FACE AREAS ARE -'/3X,’AR£A A=',D12. 6.2X, 'AREA HAIN1310 

18=', 012. 6, 2X, ’AREA C= * ,C1 2. 6 , /3X , • AREA 0 = • ,0 12. 6 ,2X , ' ARE A E = * , PAIN'1320 

2012. 6, 2X, ’area F = ',Clfi.e» PAIN1330 


TAl=THAl/67,296 

TA2=THA2X57.296 

TA3=THA3/57.296 

TBl=THniX£7. 296 

TBZ=THB2/57.296 

TB3=THa3/57.296 

TC1=THC 1/57. 296 

TC2=THC2/57.296 

TC3»THC3/57.296 

TDl=TKDl/57,296 

TCZsTHO 2/57. 296 

TC3=THD3/57.296 

TE1=THE1/S7.Z96 

TE2=THE2/57.296 

TE3=THE3/57,Z96 

TE9=THE9/57.296 

SAI=CSIN(TA1 ) 

SA2 = CS1N(TA2) 

SA3=DS1N(TA3) 

SB1 = CSIN(TR1 ) 

SP2=CSIN(Tb2) 

SB3=0SIN(TB3) 

SC1=CSIN(TCI ) 

SCZ=CSIN(TCZ) 

SC3=DSIN(TC3) 


NAIN1390 

PAIN1350 

HAIN1360 

PAIN1370 

PAIMI380 

MAIN1390 

PAIN190O 

PA1NL910 

HAINL920 

PAINL930 

PAINI440 

HAIN1950 

PAIN1960 

PAIN1970 

HAINL9B0 

PA1N1990 

PAIN1500 

HAINIBIO 

PAINL5Z0 

PAIN1530 

NAIN1590 

PAIM550 

P6IN1560 

HAIN1570 

PAIN1580 
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NQLDWD40 SHUTTLE GANN ISTER TEMP PROGRAM (CONTINUED) 






PflGF 003 

[SN 

CC68 

SC1=CS INITnll 

MAIN1590 


ISN 

0C69 

SD2=CSINn02) 

^ (^AINL6C0 


tSN 

0C7O 

S03=CSIN(Tn3) 

/'AIN1610 


ISN 

0C71 , 

SE1=CSIN(TEI) 

HAINI620 


ISN 

CC72 

SEZ=CSIN(TE2) 

^AIN16^0 


rsN 

CC73 

SE3=CSIN(Te3l 



ISN 

CC7A 

SE4=CS INITE4} 

HAIN1650 


ISN 

GC75 

CCNl=l.-l(TA2*TA3)/3.141S9) 

I^AINI660 


ISN 

0C76 

CCN2= (SA2+SA3I/2. 

I'AIN1670 


ISN 

CC77 

FACUT=S41-(CCN1*CCL2) 

HAIN1680 


ISN 

CC70 

CCN1=1.-I (TB2 + TB3)/3. 141 S 9) 

^A1N1690 


ISN 

CC79 

CCKZ= (SE2+SR3I/2. 

WA1N1700 


r$N 

CC80 

FB0UT = S81-ICQ(U*CCN2( 

WA1N1710 


ISN 

CC81 

CCNL=l.-( (TC2*TC3)/3. 141591 

FAINITZO 


ISN 

QC82 

-■ CCN2= (SC2+SC31/2. 

MA1N1730 


ISN 

CC83 

FCGUT=SC1-(CCN1»C0N21 

WAINL740 


ISN 

0C84 

CCNL=1.-((TD2+TD3 1/3. 14159) 

FA1K1750 


ISN 

CC85 

CON2= (SD2*SC3I/2. 

FA1NL760 


ISN 

CC86 

FD0UT=S01-ICCN1*C0N21 

HMN1770 


ISN 

CC87 

CCN3=|SE1+SE2*SF3*SE4 1/4. 

KA1N178Q 


ISN 

ccea 

S IGA=AAA+AAB+iAC+*4C+AAE+AAF 

f'AlNltgO 


ISN 

CC89 

CCN4=SA£/S IGA 

KMN1800 


ISN 

tcso 

FEOUT=CON3 

HAINX810 


ISN 

CC91 

CCNl=FAOUT*AAA+FBmJT4AAfttFCOUT*AAC 

{'AlNieZO 


ISN 

0C92 

CCN2=FnOUT*AAD+FEOUT*AAE 

KAINI830 


ISN 

CC93 

FOUr=(CGM+CCN2)/SIGA 

FAIM84C 


ISN 

0C94 

FIN=l.-FOUT 

t'ATNlOSO 


ISN 

0C95 

EP3 = (FOUT + Fm*EP3)/a.4EP31 

NATN1860 


ISN 

CC96 

WRITE! 6,<?391FAOUT,FBOLT, FCOGT fFOOUT tFECUT 

fFOlTtFlN.^FB KAIN1870 


ISN 

CC97 

939 FORMAT I/2X, 

* FACUT-* ^I'AXNlSaO 



1012.6,2X.'F80LT=> .D 12.6 , 2X , • FC0UT=' r012.6 

♦ 2X,* FDCUT = ' ,012,6/2X** FePAIN1890 



CC98 

2aLT=> ,012.6,2X,'Fa,T=',Cl2.G,2X,'FIA=',Dl 

2,6,2X,’EF3»’,E12.6) HAIN19C0 


ISN 

1F( I JK1529,529.8Ql 

HA1N19IQ 


ISN 

CC99 

801 ReAD(5.lO0)Xfll* AAl*)CA2,AA2tXA3tAA3,XA4,AA4,)CA5tAA5»XA6,AA6,XA7,AA7HAINX920 




l,XA8t AA8tXA9, AA9, XAi0»AA10 

NA1N1930 


ISN 

CIOD 

100 FCRl' AT {5014,6/501 A. 6/ 5014 ,6/501 A. 6) 

FAIN1940 


ISN 

ClOl 

READ(5f 120)AR8Flr 2f ARCF3iAR8F4t ARCFSt 

IHEFIO 

120 FCRN67 {5014,6/50X4.6) 

AREF6rAREP7rAREFa,ARSP9,AHATN1950 

MAINL96Q 

• WAIN1970 


ISM 

C102 


ISN 

0103 

VA1=XA1*AA1 

KA INI 980 


ISN 

0104 

VA2=XA2*AAZ 

FAIN1990 


ISN 

0105 

VA3=XA3«AA3 

NA1N2000 


ISN 

C1C6 

VA4=XA4«AA4 

HAIN20IO 


ISN 

0107 

VA5=XA5*AA5 

MAIN2020 


ISN 

C1C8 

VA6«XA6#AA6 

HAIN2C30 


ISN 

Cl 09 

VA7-XA7*AA7 

I^AIN2040 


ISM 

CVIO 

VA8=XA8*AA8 

HAIN2050 


ISN 

cm 

VA9=XA9*AA9 

FATN2060 


ISN 

C112 

VfllO=XAlOaAA10 

KAIN2070 


ISN 

0113 

XE~OELX 

HAIN2080 


ISN 

C114 

AX=OELX*CELX 

MA1N209C 


ISN 

C1I5 

ve=AX*DELX 

KAIN2100 


ISN 

0116 

XXsXF/AX 

MArN2llO 


ISN 

CU7 

WR1TE(6, lOi) VA1,VA2 . V A3 , V A4, VAS , VA6 t V A? , VAfl - VA9 ♦ VAIO , XE • A X ,V£, XX FArN2120 


ISM 


101 FCRP«.T(//2X,<9fcl=’C14,fc,3X,’ V»2=‘ 014.6, 3X 
1.6,3X,'V45 =‘d14.6/2X,*V46=‘C14.6i3X,'V47= 
1' VA9=^ 01 4.6,3 X,'V4K=' 014.8/ 2X,'XE='C 14.6 

24.6,3X,'XX='C14.61 

IF(NPTS1IS29,6B6,529 

t’ D14.fi, 3X»*VA4=’D14MAIN2130 
♦ 014,6* 3X* *\iA8=^ 014, 6t3X|KAIN2 140 
, 3X,* AX=* C14,6,3X,* VE** DIHAIN2150 



C119 

r^AlN2160 


ISM 

HAIN2170 


ISN 

C120 

529 WR1T€(6,S401 

FAIN2180 


ISN 

CX21 

940 FORMAT (/8X, 'XTIME' ,15X, 'OnriTT' 1 

MAIN2190 


ISN 

C122 

686 IFt|JX1720,73C,73l 

KAIN22C0 


ISN 

0123 

730 XM=1. 

7AIN2210 


ISN 

0124 

XA2=1. 

HAIN2220 


ISN 

0125 

XP3=1. 

RA1K2220 


ISN 

Cl 26 

XA4=1. 

FAIN2240 


ISN 

0127 

X65 = l. 

MAIN2250 


ISN 

C128 

XA6=1. 

RAIN2260 


ISN 

0129 

XA7=1. 

KAIN2270 


ISN 

C130 

XA8=l. 

RAIN2280 


ISN 

0131 

X69=l. 

bblH2290 


ISN 

C132 

XA10=1. 

FAIN2300 


ISN 

C133 

731 CCSTINUF 

PA1N2310 


ISN 

0134 

00 370 JJ=1,NPTS1 

f'AINZBZO 


ISN 

C135 

XT=XTTHE (JJl 

HArN2330 


ISN 

0136 

XCsQOOTriJJ) 

MAIN2340 


ISN 

0137 

HRITE(6, 5411X7, XQ 
541 FORMAT t4X, 014.6, 6X,C14. 61 

^AIK2350 


ISN 

0139 

FA1N2360 


ISN 

0139 

370 CENT [HUE 

HMN2370 


ISN 

C140 

I 1FE=T IMG 

FA1N2380 

C4 




NQLDW040 SHUTTLE CANNISTER TEMP PROGRAM (CONTINUED) 


ISM 0141 OCOTU1=OOOTT(IJ MAIN2340 

rSN C14Z DC 4C0 1=2, J PAIN24C0 

ISN C143 lF(NPTS4ms,320t31S 

tSN 0144 319 DO 321 JB=I,9 . MAIN2420 

ISM C145 IFdlPC.GE.WTIPEME 1. ALC.TIPE.lt. HI[PE(J8+1) ) GC TC 322 PAIN243Q 

ISN 0147 321 CONTINUE PA1N2440 

ISN 0148 J8=10 PAIN2450 

ESN C149 322 DELTIK=OELTP( J8) PAtH24iO 

ISN C150 320 CONTINUE }lMN|4Tg 

ISN 0151 TINC=TIME+OELTIH MAIN248Q 

ISN C152 JJ=0 PAIN24SC 

ISN G153 DO 401 K=1,NPTS1 PA1N2500 

ISM 0154 1F(TIHE.GE.XTIME(K1 .AND. TIME. LT.XTIHE(Ki-l) ) JJ“K HAIN2510 

ISN 0156 IFIJJ.NE.O) GO TO 4C2 PAIL2520 

ISN C158 401 CONTINUE PAINZ53C 

ISN 0159 402 OOOTII»=t(OOOTTtJJ + ll-OCaTT(JJ)l/{XTIMCIJJ + l)-XTIMeUJ))l*(TtM£-XTPAIN2540 

llHEIJJll+OOOTTIJJ) MA1H2SB0 

ISN 0160 400 CCNTINUE PAIN2560 

ISM 0161 TIME=TIHD PAIN2570 

ISM C162 1=0 MAIN2580 

ISN 0163 3 IF(NPTS4)619,620,61S PAIN259C 

ISM 0164 619 OC 418 J6=l,9 , , PAIN2600 

ISN 0165 IFITIHE.GE.HTIME(J6 I . AN0.7IME.lt. HTIMF(J 64in CO TO 419 PAIN2610 

ISN 0167 418 CCNTINUE FAIK262C 

ISM G168 J6=10 PAIK2630 

ISN 0169 419 OELTIM=OELTP(J6) PA1N2640 

TSN 0170 620 CCNTINUE PA1N2650 

ISN cm TIMC=TIHEtOELTIM PAIN2660 

ISN 0172 DO 411 J5=1.19 M41N2670 

ISN 0173 IFITIPE.GE.TIPEIt J'l. AND. TIME. LT.TIPEUJSTin GC TC 410 PAIK260O 

ISN 0175 411 CONTINUE FAIN2690 

ISN 0176 JS=20 MAIN270O 

ISN 0177 410 TINN=TINIJ51 PAIN2710 

ISN 0178 TCUTT=TOUTt J5 ) PAIN2720 

ISN C179 TSRC=TSRCE(J5 I MAIN2730 

ISN 0100 PSII=PSI(J5) PAIL2740 

ISN C181 IFIT1ME!(NPTS5).LT.TIPE) GO TO 431 PAIN2750 

ISN 0183 -GC TC 409 PAIN2760 

ISM 0184 431 IF(IJJ1433.«33,409 PAIN2770 

ISN 0165 433 WRITEI6.43Z) KAIN2780 

ISN C186 432 FGRPATI/3X, 'CAUTION.. .TIPEINPTS5I IS LFSS THAN MAX. PROBLEM T I HE' /3M A I N2790 

IX, 'SC TIN.TCUT.TSRCE.t FS I ARE FIXEC AT TFE IR SUB-NPTS5 CALUFS'I PAIN2800 
ISN C187 1JJ=1 MAINZ01C 

ISN C188 409 CCNTINUE ■ PAIN2S20 

ISM 0189 PSIII=PSU/57.296 HAIN2830 

ISN 0190 CCN1=TINN»FIN PAIN2840 

ISN C191 CGN2=TQUTT*FGI;T PAINZB50 

ISN 0192 IF(TINM.GE.600. ) GO TO 441 KA1N2860 

ISM C194 ALPHA=EP2 MAIN287fl 

ISN C195 441 CCH3=(AA6/SIGA)4rSRC» (CCCSIPSIin >7(ALPHA) PAIN28B0 

ISNC196 T INNCR=CCM+CCN2+CCN3 HAIN2890 

ISN C197 1=1+1 PAIN29C0 

1SMC198 OCH=ieOOT( I l + CDOTIl+l M/2. PAIN2910 

ISM C199 OIN=OCH KA1N2920 

ISM C2C0 IFIII-114,5,5 HAtN2930 

ISM 020! 4 THEST=Tlt PAIN2940 

ISM 0202 1 1=1 HAIN2950 

ISN 0203 GC TC 9 P4IN296e 

ISM 0204 5 THEST=lTlI+TlF)/2. PAIN2970 

ISM 0205 9 XK1=XKA+U1*THEST MMNZ980 

ISN C2C6 XK2=XKB+L2*T2 I PAIN299C 

ISM 0207 XK3=XKC+U3*T3I PAIN3000 

ISN 0208 XK4=XK0+U4=T4I MAIN3IU0 

ISN C2C9 XK5=XKE+L5*T5I PAIN3C20 

ISM 0210 XK6=XKF+U6«T6 I PAIN3030 

ISM 0211 XK7=XK6+U7*T7I KAIN3040 

ISN 0212 XK8=XKH+L8»iei PAIN3C50 

ISN 0213 XK9=XKI+U9*T9I PAIN3060 

ISN 0214 XK10=XKJ+U10»T10I KAIN3070 

ISN 0215 CP1=CPA+V1»TWEST PAIN308C 

ISM 0216 CPZ=CPB+VZ*T2 I PAIN3090 

ISN 0217 CP3=CPC+V34T3I HAIN3100 

ISM 0218 CP4=CPD+V4»T4I PAIN3IIC 

ISM 0219 CP5=CPE+V5«T5I KAIN3120 

ISM 0220 CP6=CPF+V6*T61 MAIN3130 

ISN 0221 CP7=CPG+V74T7I MAIN314C 

ISN 0222 CP8=CPH+V8*TPI PAIN3150 

ISN 0223 CP9=CPI+V9*T9! MAIM3160 

ISN 0224 CP10=CPJ+VlflPTlOt PAIN317C 

ISN 0225 IF(IJK)750,750,751 KAIN3I80 


PAGE 004 
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NQLDW040 SKUTTLE CANNISTER TEMP PROGRAM (CONTINUED) 


PAGE 005 


ISN 

C226 

751 

ISN 

C227 


ISN 

0228 


ISN 

C229 


ISN 

0230 


ISN 

0231 


ISN 

€232 


ISN 

0233 


ISN 

0234 


ISN 

0235 


ISN 

0236 


ISN 

0237 

650 

ISN 

C238 

tSN 

C239 


ISN 

0240 


ISN 

0241 


ISN 

0242 


ISN 

0243 


ISN 

0244 


ISN 

0245 


ISN 

0246 


ISN 

C247 

750 

ISN 

0248 

ISN 

0249 


ISN 

0250 


ISN 

0251 


ISN 

0252 


ISN 

0253 


ISN 

C254 


ISN 

0255 


TSN 

0256 


ISN 

0257 

651 

ISN 

0258 

652 

ISN 

0259 

ISN 

0260 


ISN 

0261 


ISN 

0262 


ISN 

0263 


ISN 

0264 


ISN 

0265 


ISN 

0266 


ISN 

0267 


ISN 

C26B 

653 

ISN 

0269 


ISN 

0270 


ISN 

027L 


ISN 

0272 


ISN 

0273 


ISN 

CZ74 


ISN 

0275 


ISN 

0276 


ISN 

0277 


ISN 

0278 


ISN 

0279 


ISN 

C280 


ISN 

0261 


ISN 

0262 


ISN 

0263 


ISN 

0264 


ISN 

0285 


ISN 

C266 


ISN 

0287 


ISN 

0266 


ISN 

0289 

50 

ISN 

0290 


ISN 

0291 

51 

ISN 

0292 

tSN 

0293 


ISN 

ISN 

0294 

0295 

911 

ISN 

0296 

900 

ISN 

0297 

52 

ISN 

0298 

ISN 

0299 


ISN 

C3C0 

551 

ISN 

0301 


ISN 

0302 

550 

ISN 

0303 

552 

ISN 

03C4 



XKL*XKl«<flAl/XAX)*)tX 

XK2~XK2#<AA2/XA2)>!«?<X 

XKJsXK3#(AA3/XA3)#XX 

XKA«XKA’*<flAA/XAA-)*><X 

XK5»XK5* IAA5/XA5)*XX 

XK6=XK6«(AA6/XA6)«XX 

XK7*XK7*<AA7/XAT)»XX 

XK8=XK8* {AAQ/XAS1«XX 

XK9bXK9«<AA9/XA9)«=XX 

XKLO»XKlC*(fl«llO/XAIC)'»XX 

IFn-H650t6SC,750 

RHllsRH01«(VAl/VE>*AREFl 

RHl2=RHC2*<Vi2/VE>*AP£F2 

RH13=RHC3#(VA3/VE)*AREF3 

RHL4=RH04#IVA4/VE>*AREFA 

RHL5BRH05*(VJ5/Ve)*AReF5 

RHl6=RHC6«(VA6/Vt>*AREF« 

RH17=RH07« fVA7/VE>#AREF7 

RHlOBRHOO^^Vfl^/Vej^AREFS 

RH19=RHD94« tVA9/VF)*AREF9 

RH110=RHC10»(VA10/'VEJ *AREF10 

XKl»(XKl*XAl + XK2*XA2)/UAl + XA2> 

XK2=(XK24XA24XK3*XA3»/IXA2+XA31 

XK3={XK3#XA3+XK4#XAA)/(XA3+XA4) 

XK4=tXK4*XA4*XKS<‘X^5)/<XA4 + XA5) 

XK5«tXK5*XA54XK6*X46»/(XA5+XA6> 

XK6=IXKb*XA6+XK7*XA7)y(XA6fXA7) 

XK7«CXK7^XA7+XK8«XA8)/(XA7+XA0) 

XK8 = lXK8:*XA84XK9*Xig)/lXAB4XA9> 

XK9=lXK9*XA9+XKia#XAl() /( XA94-XA10I 

rFnJK)651^651t653 

IFl I-l)652t652t653 

RH11=RH01 

RH1Z=RH02 

RH13»RHG3 

RH14=RH04 

RH15?*RH05 

RH16=RH06 

RH17=RHD7 

RH18=RH08 

RH19=RHG9 

RH110=RHC10 

A1 = (XK1!»CELX:4DELT[M/2* 

A2^tXK2«CELX«CELTT^ |/2. 

A3={XK3*CELX*DELTtH 1/2. 

A4* tXK9=<‘D£LX*nELTrM)/2. 

A5»(XK5*DELX*=DELTrK|/2. 

A6=lXK6*CELX*0ELTtKI/2. 

A7a(XK7«CELX=»CELT 

A8- (XK6#CELX«CELT[KJ/2. 

A9= {XK9*CELX*DELTIF )/2. 

A10« CP1*RH11#0ELX»*3 
A 1 1 «£J»2<‘RK12B:C EL 3 
A12«CP3*RH13*DELX**3 
A13sCP4*RHl4^CElX*<2 
A14sCP5*RK15*CELX**3 
A 15*CP6*RH 16«DELX**3 
A16sCP7«RHl7*DELX*«3 
Al7sCP8*RH18*CEI.X*#3 
Al8sCP9*RHa9*DELX**3 
A19 bCPX 0<‘RH110*DSLX#*2 
A20 = (06i.X#«2)«OELTlP 
IF<EP2*SP3)50,50t51 
AAZ=0. 

GC TC 52 

EP23 = 6P2 ♦ 6f>j 

CP23 = EP23/(EP2 + EP2 - EP23) 

IF( lJK)900t90Ct9U 

AAZsEPZ3«.A8056-12*=CniCI#^4)-{ TINNER *06171 
GO TC 5? 

AAZ = EP23«*48C56-I2*t niOI’»<^4)-(TINNFR*=*4>) *OEUT| 
F 1«A I+AIO 

F2sn 

IP< I>n<'>550T550f 551 
WAVi=AAl/AX 
GC TC 552 
HAW = l. 

F3=A1*(T1!-T2I )-AlC*T3I 
1«KA14 

F4sA14A2-*A11 


MAIN319C 
F4IN3200 
MAIN3210 
HA1N322C 
FAtN3230 
HMN3240 
FAIN3250 
FAIN3260 
HAIN3270 
PAIN328C 
KAIN3290 
HAIN3300 
FAIN3310 
FAI^3320 
HAIN3330 
PAIN3340 
KAIN3350 
XAIN3360 
PAIN3370 
KAIM3380 
FAEN3390 
• KAIN3400 
NAIN3410 
HA1N3420 
HAIN3430 
KAIN34A0 
t'AINSASO 
PAIN3460 
HAIN3470 
f^AIN3480 
f'AIN3A90 
HMN3500 
KA1N3510 
f'AlNBSZO 
MAIN3530 
FA1K3S40 
PAIN3550 
MAIN3560 
»«A1K3570 
FMN3580 
<^AIN3590 
HAIK3600 
PAIN3610 
KAIN3620 
^AI^363C 
PAIN364D 
^A1N3650 
RAIK3660 
PAIN3670 
MAIN3680 
I^AIN3690 
KAIN370O 
MAIN3710 
PA1N3720 
PAIN3730 
HAIN3740 
PAIN375Q 
FAIN3760 
HAIN3770 
PAIN3780 
MAIN3790 
MMN3ROO 
PAf N'3610 
PMN3G20 
MAIN3830 
PAIN3840 
FArN3850 
KAIN3a60 

H*DELX**2*AA10/AX FAIN3870 


M*DSLX»*2 


FMN3880 
HAIN3890 
FAIN3900 
FAIN3910 
HMN3920 
PAIK392C 
FAIN3940 
HMN3950 
-Cl^ ^A20FAIN3960 
FAIN3970 
HAIN390O 


ce 



NQLDW040 SHUTTLE CANNJST£R TEMP PROGRAM {CONTINUED) 


P/IGE COS 


rsN 

0305 


F5«A2 

HA1N3990 


rsN 

0306 


F6=I-AU#ITlt-T2IMA2#(T2I-T3l>-411»T2I 

HAIN4000 


ISN 

0307 


F7=A2+A3+A12 

FAIA40IO 


!SN 

0308 


F8=A3 

NAIN4020 



C209 


F9=(-A2J»(T2I-T31HA2#n3t“T4I)-Al2#T3I 

HAIN4030 


ISN 

0310 


F10=A3+A4+AI2 

f*Al N4040 


I SN 

0311 


F ll«A4 

NAIN4050 


ISN 

0312 


F12*<-A3)«'IT3I-T4I 1 4 A4* { T41-T5 H-A 1 3*T4 T 

MAIN4060 


ISN 

0313 


F13»*A4+A£4-A14 

><AIN4070 


ISN 

031A 


F14=A5 

(^A1N4080 


ISN 

0315 


F15 = l-A4)#(T4r-T5I )4A5«USl“T6l )-M4*T5I 

WAIN4090 


ISN-0316 


F16SA5+A6+A15 

f'AIN4lOO 


I SN 

0317 


F17«A6 

HAIN4110 


ISN 

C3ia 


Fl8=l-A5U(T5E-T6l »4 A6* ( 76 1-T7I I-A15#T6I 

MAIN4120 


r SN 

0319 


Fl9aA6+A74Al6 

fAl N4130 


ISN 

0320 


F20«A7 

NAIN414Q 


1 SN 

0321 


F2l»{-A6)*(T6r-T7I)4A7»tT71-T8I I-(A16*T71 ) 

WAIN4X50 


ISN 

0322 


F22=A74AB+A17 

NAIN4160 


ISN 

0323 


F23=A8 

KAIN4170 


ISN 

032A 


F24»l~A7)««<T7t-TBn4A8*(T8I-T9I »-Al7#T8I 

NAIN4180 


1 SN 

0325 


F25*A84A94A16 

FA1K419C 


1 SN 

0326 


F26*A9 

h'AIN4200 


ISN 

0327 


F27=(-A819(T6I-T9I l4Ag*U9I-T10I}-A18*T9I 

HATN4210 


ISN 

0328 


F2B=A9+A19 r 

hAIN4220 


ISN 

0329 


F29=<-A91*<T9r-Tl0n-Aiq#n0I4AAZ 

t^AIN4230 


ISN 

0330 


Gl=(r26«r29MIF27*F2Q» 

HAI N4240 


ISN 

0331 


G2=FZ3*F28 

FAIN4250 


ISN 

0332 


G3=(F26«*2)-IF25*F28» 

HA1N4260 


ISN 

0333 


G4=(F23#G2)/G3 

HAIN4270 


ISN 

023A 


G5=IF23#G1)/G3 

FAIN428C 


ISN 

0335 


G6=F22+G4 

^'A1N4290 


ISN 

C336 


G7sF20^G6 

HAIN4300 


I SN 

0337 


G8=tC5-F24)/G6 

FAIN43L0 


ISN 

0336 


G9=F21-<F2O*G0) 

^'AI^'4320 


ISN 

0339 


G10=<F20*G7>-F19 

NAIN4330 


ISN 

03AO 


Gll=G9/G10 

^AtN434C 


ISN 

03AI 


G12*F17/C10 

f'AIN4350 


ISN 

C3A2 


G13 = F164(F17«^G12) 

HAIN4360 


ISN 

0343 


G14=Fl8-(F171'6m 

P'AIN4370 


1 SN 

C344 


G15-F14/G13 

KAIN4380 


I SN 

C2A5 


G16=C14/C13 

HAIN4390 


I SN 

0346 


G17®IF14*G16)+FLS 

FAIN44C0 


ISN 

0347 


G18=(F14«G15)-F13 

NAIN4410 


I SN 

0348 


G19=G17/G10 

NAIN4420 


I SN 

0349 


G20=Fll/G18 

^AIN4430 


1 SN 

C3S0 


G2U(Fll«G20)4F10 

KAI N4440 


I SN 

0351 


G22«F12-IFll*G19) 

HAIN4450 


I SN 

0352 


G23=G22/62l 

f'ATK4460 


ISN 

0353 


G24=F8/G2l 

rAIN4470 


I SN 

C354 


G25=IF8*C24»-F7 

NAIN4480 


I SN 

0355 


G26«F94|F8«G23) 

><ArN4490 


I SN 

0356 


G27=F5/G25 

HA1N45Q0 


I SN 

C357 


G28*C26/625 

HAIN4510 


ESN 

0358 


G29*IF5*G27)4F4 

HAIN4520 


I SN 

C3S9 


G30*F6-(F5«G2a ) 

MAtN4530 


ISN 

G360 


G31SC30/C29 

HAIN4540 

CD 

ISN 

0361 


G32*F2/G29 

FAIN4550 


ISN 

0362 


G33s-Fl+IF2*G32I 

HAI N4560 

O ^ 

ISN 

C363 


G34 = F3+IF2>5«Gn) 

HAIN4570 

O ^ 

ISN 

0364 


TIF=G34/G33 

HAtN4580 


I SN 

0265 


T2F=(G32#T1F1-G31 

HAIN4590 


ISN 

0366 


T3Fs(G201-IG27*T2F) 

HA1N4600 

tr 

ISN 

0367 


T4F=(G24*T3F1-G23 

MAIN4610 


ISN 

0268 


T5F«G19-(G20«T4F) 

NAIN4620 


ISN 

0369 


T6F*(G15#T5F)-G16 

HAIN4630 


ISN 

0370 


T7F=G11-(G12'!'T6F» 

HAtN4640 


ISN 

0371 


T6F-iG74T7Fl4G0 

HATN4650 


ISN 

0372 


T 9 F^(Gl-iG 24 T 8 Fn/C 2 

HAIN4660 


I SN 

0273 


T10F*<(F26«>‘T9F)-F29I/F28 

KAIN4670 


ISN 

0274 


WT^(TlI+TlFl/2, 

KAIN460O 


ISN 

C275 


1 F( NK1850i850.851 

NAIN4690 

ISN 

0376 

851 

AAY=AAZ/(DFtTrH«AAlO» 

^^^4700 

CP 

I SN 

C377 


GG TC 852 

HAIN47L0 


ISN 

0378 

850 

AAY=AAZ/A20 

NAIN47Z0 


I SN 

0379 

852 

HTT=DABS<TMEST-WTI 

MA1N4730 


ISN 

02BO 


IF( (K7T/K7J-.C0U6lj6t *5 

KAIN4740 


ISN 

0381 

61 

1 FIKK6-KK 5 >57 1,571,780 

MAIN4750 


ISN 

0282 

571 

I FIKJKigSfl, 990,999 

HA1N4760 


ISN 

0283 

998 

TFl=TlF-460. 

HAIN4770 


ISN 

0284 


TF2=T2F-460. 

KAIN4780 



C7 



nOLDW040 SHUTTLE CANNISTER TEMP PROGRAM (CONTINUED} 


P^GE 007 


ISN C385 
ISN C386 
ISN 0387 
ISN 0388 
ISN 0289 
ISN 0390 
ISN 0291 
ISN C292 
ISN 0393 
ISN C394 
ISN 0295 
1 SN 0296 
ISN C29r 

ISN C290 
ISN 0399 
ISN OAOO 
ISN 04C1 
ISN G4C2 
rSN C403 
ISN 0404 

ISN C40? 


TP3=T3P-460. 

TP4sT4fS-460* 

TP5=T5P-460. 

TF6=T6F-460. 

TF7ST7F-460, 

TF8*TftF-4604 
TF9=T9F-460. 

TFlOsTlOF-460. 

KK5=0 

WRne(6fT701 

770 F0Rf‘AT(/2X,*TCWPCRATURes OF ELEMENTS ARE IN DEGRFES FM 
URnE(6,6<)TTKE 

WRITE I6,66ITFl»TF2»TF2iTF4»TF5*TF6tTF7,TF8»TF9pTF10iCIN, 

It TINNER 
GO TO 70C 
999 HR1TE(6»771J 
KK5=0 

771 FCRi'ATI/ZX.'TEPPGRATLFES CF ELEMENTS ARE IN DEGREES RM 
V.RITE(6*fc5)TIKE 

65 FCRMAT(//2Xt7HTlNF =£14.6) 

WRITE (6T66lflFfT2FtT3F,T4F,TSF,T6FtT7FtT8FtT9FrT10F,ClNt 

66 Format I /2Xi*TlF=^ ,C12.6,3X.*T2F = * .012.6 .ax, »T3F=*,D12.6,3X 
1D12.6/2X.«T5F«« .nl2.6,3X.» T6F = < .C12.6 ,3X , • T7F = * ,C12.6 . 3X , » 
2Z.6/2Xp’T9F = » ,012.6 i3X.» TL0F = * .012. 6.3X .‘C IN ,012.6, 3X, 

3 »OR*CCUTCferX=' ,C12*6/2X. ’TINNER STRUCTURE* * ,012. 6 , 2X, 

4* DEGREES RANKIKE^ ) 


MAIN4790 
HAIN480O 
MA1N4B10 
PAIN4B20 
HAIN4S30 
KAtN40«0 
PAIN4850 
HAIN4860 
MAtM4870 
HAIN466C 
MAIN4B90 
HAIN4900 
AAYPAIN4910 
MAIN4920 
PAIN4930 
MAIN4940 
HAIN4950 
KAIN4960 
WAIN4970 
MAIN4980 
AAVKATN4990 
FAIN5CC0 
TAF=»*WAIN5010 
T8F=» ,C1HA1W5C20 
HAIN5030 


I SN 

C4C6 

7B0 

TlIsTlF 

ISN 

C4C7 


T2I=T?F 

ISN 

0408 


T3I=T3F 

ISN 

C4C9 


T^I=T'tF 

ISN 

C410 


T5I=T5F 

1 SN 

04U 


T6I=T6F 

ISN 

C412 


T7I-I7F 

ISN 

C413 


T8I=T8F 

ISN 

0414 


TOI=rOF 

ISN 

C415 


T10I=TLQF 

ISN 

0416 


KK5=XK5+1 

ISN 

0417 


IFI I-J+113,70,70 

ISN 

0418 

70 

CONTINUE 

ISN 

0419 


GC TC 17 

ISN 

0420 

8005 

STOP 

ISN 

0421 


FNC 


PAINS 040 
MAIN5CSC 
PAIN5C6C 
FAIN5070 
HMN5080 
PAIN50SC 
PAIN5100 
MAIN5110 
PAIN512C 
PAIN5130 
MAIN5140 
KAIN51S0 
PAINS 160 
MAIN5170 
PAIN5180 
PAINSL90 
HAINS200 
('AIN521Q 



NQLDW040 SHUTTLE CANNISTER TEMP PROGRAM (CONTINUED) 


SAMPLE PROSLEK FCR KOLCHOAO 


INPUT DATA 


J-2999 

XKA=0. 

XKF=0, 

RH01=0 

RHC6=0 

CPA=0. 

CPF=0- 

T1I=0. 

T6I=0. 


TIM0=0. 
AETOD-02 
76000-05 
.60000 02 
.ECCOO 01 
2300D 00 
18000 00 
53CQD 03 
S300D 03 


XKB=0. 66700-02 
XKG=0.7600n-C5 
RH02=0. 60000 02 
RHQ7=0.E000C 01 
CPB=0. 23000 00 
CP6=0.1800D OO 
T21=0 ,53000 03 
771=0.53000 03 


XKC=0. 66700-02 XKC=C. 26670-01 

XKH=0,''7 6CCC-05 XKI =C .26670-01 

RH03-0. 60000 02 RHD4=0. 17000 03 

RHC6 = C. ECCOO Cl R)-C9 = 0. 17000 03 

CPC=0. 23000 CO CPD=C. 23000 00 

CPH=0.18C0C 00 CP1=0.23C0D 00 

T3I=0.53C0C 03 TAl=C.53COC 03 

T8I=0,53CCC 03 T9I=C.53COD 03 


XKE=Q. 26670-01 
XKJ=0. 26670-01 

RHOS=0.1700D 03 

rk:ic=o,17ooc 03 

CPE=0. 23000 00 
CPJ=0.23000 00 
T5I=0. 53000 03 
T10I=C.5300C 03 


D6LX=0. 12920-02 
U1=0.0 U2=0.0 

116=0.0 U7=0.0 

V1=0.0 V2=0.0 

V6=0.0 V7=0.0 

EP2=0-73000 00 FP3=0. 87000 00 

NPTSl* 2 NPTSA= 2 NPTS5= 

ALPHA= 0.1000000 OO 


U3=0.0 

ue=o.o 

V3=0.0 

V8=0.0 

IJK=1 

6 KK6= 50 


U6=0.0 

U9=0.0 

VA=O.C 

V9=0.0 


U5=C.O 

uio=o.o 

V5=0.C 

V10=C.0 


HTiPEtn 

O.C 

0.3960CCD 06 


DELTMI n 
0,3000000 03 
0.6000000 02 


PAVLOAC BOX POSITION ANGLES IN DFGREES 
— THA2=0.5CCCOOO 02 


THA1=C.365000C 02 
THC1=C. 8720000 02 
THE1=0. 7060000 02 


THC2=0.81CC0O0 02 
THE2=0. 8100000 02 


7FA3=0. 8100000 02 
7hC2=C.500CCGD 02 
THE3=0. 6650000 02 


TFBl=0.5OCCCOC C2 
TPOl-0,8lQOQOD C2 
THE6=0. 8250000 02 


THE2=0.872COOO 02 
THC2=0. 3650000 02 


TH83=0. 3650000 02 
TH03=0. 6720000 02 


TIMEim TTNU) TOUTin 

0,0 0.2750000 03 0.0 


TSRCEI I) 

0,0 


PSI ( I 1 

0.90000CD 02 


0.1S12CCC 06 0.6910000 03 0.5100CCD 03 C.51CCC0D 03 0.0 


0.2736CCD 06 0.691C00D 03 O.C 
0.396OCCC 06 0.6710000 03 0.0 


C.C 

C.6CCCCCD 06 


0.9CCCCCO C2 
0.0 


THE BOX FACE AREAS ARE - 

AREA 6=0.1863800 01 AREA 8=0.1863800 Ct 

AREA D=C. 1863800 01 AREA E=0. 2132800 01 


AREA C=C.lS638Cn 01 
AREA F=Q. 2132600 01 


FA0UT=C.356117D CO 
FECUT=0. 9119310 00 


F6CLT=0.516815C 00 
FGUT=0.562706C CO 


FCCUT=0. 7601020 CC FCDUT=Q. 7386610 CC 
FIN=C.657296D 00 6 P3 =0 . 302969C 00 


VA1= 0,2191670 00 
VA6= C. 6102000-01 
XE= 0.129200D-02 

XTIHE 

0.0 

o.sconooo 06 


VA2= 0.2191670 00 
VA7= O.61O2COD-01 
AX= 0.166926C-05 

eOQTT 

0.0 

0.0 


VA3= 0.2191670 OC VA6= 0.1C8970D-C1 

VA8= 0.129POOD-02 VA9= 0.12920CD-02 

VF= 0.2156690-08 XX= C, 7739960 03 


VA5= 0.1089700-01 
VA10= 0.129200D-02 


TEPPCRA7URES OF ELCPENTS ARE IN CEGRCES F 
TIKE = G. 1500000 05 

T1F=0. 5286620 02 T2F=0 .52790 20 02 T3F=C . 5263020 02 

T5F=0. 5258730 02 T6F=0. 5257200 CZ T7F= C . 95096 50 01 

19F=-. 1286290 02 T 10 F=- . 1286280 02 CIN =0.0 

TINNER JTRUCTUREsO. 1257560 03 DECREES RANKINE 

7EPPERA7LRES OF ELEFENIS ARE IN DEGREES f 


T6F=C. 5259060 02 
18F=-. 1286210 02 

ORADainOFBOX=O.Bl 11620-02 


TIKE = 0.3000000 05 

T1F=0.366611D 02 T2F=0. 3639210 02 

T5F=0. 3620770 02 T6F =0 . 361937D 02 

T9F=-. 2327150 0? T 10 F=-. 2327 16D_0 2^ 

TINKER 5TRUCTURE=0. 1257560 03 DECREES 

TEPPFRATURES OF GLEKENTS ARE IN DEGREES F 


T3F=C. 3625390 02 
T7F=-.295076C 01 
QIN =C.C 
RANKINE 


T6F=C. 3621060 02 
T8F=-. 2327080 02 

ORAOOL1QFBCX=0. 7375550- 


02 


TIRE = 0.6500000 05 


ORIGINAL PAGE IS 
OF POOR QUALITY 



NQLDW040 SHUTTLE CANNISTER TEMP PROGRAM (CONTINUED) 


T1F=0.215180D Q2 
T5F=0. 2128660 0? 
T9F=-. 3300950 02 


T2F = 0, 2165-190 C2 
T6F=0. 2127380 02 
T10F=-.33CC96D 02 


T3F=C.2132£8D 02 
T7F=-. H5585D 02 
CIN =0.0 


TINNER ETRUCTURE*0.125755C 03 DEGREES RANKING 
TERFFRATORES OF ELFPENTS ARE IN' DEGREES F 


1AF=C.2L2091C C2 
T8F=-.3JCOaSD 02 

CRADOUTOFOOX=0. 5736650-02 


TIKE 


0.5O0C0CD 05 


T1F=0. 7851100 01 
T5F=0. 7639070 01 
T9F=-. 6212030 0? 


T2F=0. 7793:20 01 
T6F=0. 7627360 01 
T10F=-. 6212010 02 


T2F=C. 76 77760 01 
T7F=-.2511B6D 02 
C!N =C.O 


TINNER STRUCTURG=0.125756C 03 DECREES RANKINE 
TEKPFR4TLRES OF ELEKBMTS ARE IN DEGRESS F 


T6F=0. 7661380 Cl 
TBF=-.621157D C2 

CRA00UTOFBCX=0. 6173130-02 


TIKE 


0.7500000 05 


T1F=-.669605D 01 
T5F=-. 6891080 01 
T9F=-.5C66030 C2 


T2F=-. 6769210 Cl 
T5F=-. 6901850 01 
TlOFs-. 5066010 C2 


T2F=-.6E5569C 01 
T7F=-.3S02100 02 
CIN =C.C 


TINNER STRUCTURE=0.125755C 03 DEGREES RANKINF 
TEKPERATURES OF ELEMENTS ARE IN DFGREES F 


76F=-. 6086960 01 
T8F=-.506598D 02 

CRACCUTCFECX=0. 5679310-02 


TIKE 


0.900000C 05 


T1F=-,162563D C? 
T5F=-.166363D 02 
T9F=~. 5868030 07 


T?F=-. 1530560 02 
T6F=-. 1666620 C2 
Tlor=-, 5868010 07 


T3F=-. 166036C 02 
TTF=-.662668C 02 
CIH =0.0 


TINNER STRUCTURC=0.125756C 03 OFGREES RANKINE 
TEKPERATURES OF ELEKCNTS ARE IN DEGRESS F 


T6F=-. 1663630 C2 
TflF=-,5S6798C 02 

0RA0DUTOFBqX=0, 5262910-02 


TIKE 


0, 105000D 06 


T1F=-.26962B0 OP T2F=-. 2698320 02 T3 F=-. 27 07900 02 

T5F=-. 2110960 02 T 6F =-,2711860 C2 T7F=-. 52 85 62C 02 

T9F=-. 6622530 02 T 10 F=-, 66225 10 C2 CIN =C.C 

TINNER STRUCTURE'O. 1257560 03 DEGREES RANKINE 

TEKPERATURES OF ELEMENTS ARE IN DEGREES F 


T6F=-. 2710760 02 
T8F=-, 6622690 C2 

CRAQ0UTOFDCX=0. 6855570-02 


TIKE = 0.120COOD 06 


T1F=-. 3685260 02 
T5F=-. 3700720 02 
T9F=-.733361D 02 


T2F=-. 3689660 02 
T5F=-. 3701570 02 
T10F=-.73335BD C2 


TINNER STRUCTURE=0. 1257560 03 DEGREES RANKINE 
TEKPFRATURES OF ELFMENIS ARE IN DEGREES F 


T2F=-.369790C 02 
T7F=-. 6092080 02 
CIN =0.0 


T6F=-. 3700550 02 
T8F=-.733357D 02 

0RADQUTOFB0X=0. 6S1C390-C2 


TIME 


0.1350000 05 


T1F=~. 6405860 0? 
T6F=-. 6621280 02 
T9F=-.ECC6a7D 02 
TINNER STRUCTUBF= 


T2F=-. 6610790 02 
T6F»-. 6622070 02 
T10F=-. 8006860 02 


T3F=-. 6618650 02 
TTFs-. 6868500 02 
CIN =C.C 


0.125756C 03 DEGREES RANKINE 


TEMPERATURES OF ELEMENTS ARE TN DEGREES F 


T6F=-, 6621120 02 
T8F=-. 8006830 02 

CRAC0UTOFDCX=0.6ZC156D-G2 


TIKE 


0.1500000 06 


T1F=-.366636D 02 
T5F=-. 5679800 02 
79F=-. 8639590 02 


T2F=-.S670C ID C2 
T6F=-.568055D C2 
T10F=-.853956D 02 


T3f=-.567T3SC 02 
T7F=-. 7559660 02 
CIN =0.0 


TINNER STRUCTURE=0.125756C 03 OEGREFS RANKINE 
TEMPERATLRFS OF'ELFMCNTS ARE IN DFGREES F 


T6f=-.567964C 02 
T8F=-, 863955D 02 

QRAOOUTOFROXaO, 3926240-02 


TIME = 0.1650000 06 


T1F=-. 3756180 02 
T5FS-.3T2685D 02 
T9F=0. 3625090 02 
TINNFR STRUCTURE" 


T2F=-. 3747660 02 
T6F=-. 3723120 C2 
T10F=0. 3625230 02 


T3F=-,373056D 02 
T?F=C. 11 169CC 02 
CIN =C.C 


D.569523C 03 DEGREES RANKINE 


TEMPERAURES OF ELEMENTS ARE IN DEGREES F 


T6F=-. T72519D 02 
18F=C.362699C C2 

CRA00UT0FBCX=-. 91C166D-02 


C10 



MQLOW040 SHUTTLE CANNISTER TEMP PROGRAM (CONTINUED) 


TIPF = O^ISOOOOO 06 

TIF--. 1532760 02 T2F*-, 1925 ISO 02 T2 F=- ► IS 10C2C 02 

T5F=-,19C4950 02 T6F = -« 1903<^»1D 02 T7r«C. 2391820 02 

19FsO. ^620200 02 T10F=C . 462C3A0 02 ^ CIN =0.0 
TI^^ER STftUCTUftF=0.569523C 03 0FGR6FS R4MKINE 

TEFPfRATUReS OF EIFMFNTS ARE !N DECREES F 


T4F**-*19C525D 02 
T8F = O.A62011I) 02 

CRACOUTOFECXs-, 8078250-02 


TIKE = 0.1950000 06 


T1FS-.316835D 01 
T5F=-,2S2228D Cl 
T9F=0. 5479710 02 


T2Fs-,3lOL28D 01 
T6Fs-. 2908690 01 
Tl0Fs0,5479B4D 0? 


T3F»-«-2S671fiC 01 
T7F=C.350865C 02 
CIN bQ.O 


TIhN'ER <TRUCTUR£s0.569523C 03 OFCREES RANKING 
TEKPER.4TURES OF FLEM5NTS ARE IN DECREES F 


T4F=-.252495D Cl 
TfiF=C. 5479630 02 

0RADOLiaP60)Cs-.714436D-02 


TIKE * 0*210000D C6 


TlFs«0,m04lD 0? 
T5F=0. 1132110 02 
TSFsO. 6222030 02 


T2FsC.U16320 C2 
T6F=0, 113321D 02 
T10 Fh0.622216C G2 


T2F*C*112815D 02 
T7F=C*448394C 02 
CIN =C«0 


TINNER STRUCTUR6=0.569523C 03 DEGREES RANKINE 
TEKPCKATtRES OF 6LFKENTS ARE IN DFGREES F 


T4F=C. 1131870 C2 
7fiF=C.622196D 02 

ORADOUTOF&OJC*- .6299120-02 


TIKE ^ C.225CCCD 06 


TlFsO. 2267390 02 
T5F»0. 2206480 02 
T9F=0.6S63160 02 


T2F»0. 2372600 02 
T6F=0. 238793D 02 
n0F = Q.686329D 02 


T2F=C. 2383000 02 
T7F=C. 5224540 02 
CIN =0.0 


TINNFR STRUCTURC=0.569523C 03 OECRECS RANKINE 
TFKPERAILRES OF ELEKFNTS ARC IN DEGREES F 


T4F=C. 2386270 02 
T8F*C.686310D C2 

QRA00UT0FBOX=-.55394lD-O2 


TIKE = 0.240000D 06 


T1F=0. 3471720 02 
T5F=0. 3488470 02 
T9F=0. 7416950 C2 


T2F=0. 3476290 02 
T6F*0. 3489400 02 
TLOF=C. 7417080 C2 


T2F*C.348542C 02 
T7F=C. 6075560 02 
QIN =C.C 


tinner STRUCTURE=0*569523C 03 DEGREbS RANKINE 
TEKPFRATURES OF ELEKENTS ARB IN DEGREES F 


T4F=C.34ee29D C2 
T8F«‘C.741690D 02 

CRACQLTQFBCX»-.4e6C4 90-02 


TIKE = 0.2550000 C6 


T1F=0. 4439910 C2 
T5F«0*4454580 02 
T9F»0. 7895370 02 


T2Fa0.444391D 02 
T6F=0. 4455390 C2 
T10F=0. 7895500 02 


T2F»C.4451S1C 0? 
T7PaC.672054D 02 
CIN =0.0 


TINNER S7RUCrURP-0.569523C 03 DFCR66S FANKINE 
TEKPCRATtRES OF CLEKENTS ARE IN DEGREES f 


14F=C.445442D C2 
T8F=C.789532D 02 

QRAOOUTOFBOX*-. 4256670-02 


TIKE s O.27OQ0O0 06 

T1F=0. 5287230 02 T2F=0 . 5290730 02 T3 F»C . 529T72 D 02 

T5Fs0.52CCC60 02 T6F = 0 , 530077 0 02 T7 F = C . 728148C 02 

T9F=0. 82C6750 02 T10F=0 . 8 30 P87D C2 CIN »C.C 

TINNER $TRUCTURE=0. 5695230 01 DEGREES RANKINE 

TBKPERATORES OF ELEKFNTS ARE IN DEGREES F 


T4F»C. 52S992D C2 
T8P=C.83C87C0 C2 

CRADOUTOFBCXs-. 372 1790-02 


TIKE * 0.285COCO C6 


T1F=0. 4314810 02 
T5F=0. 4289460 02 
T9F*-. 1658050 C7 


T2F=0. 4307900 C2 
T6F=0. 4288070 02 
T10FS-.1658C4D C2 


T2F«C,429409C 02 
T7FaC.373810D 01 
CIN *0.0 


TINNFR STftUCTURE*0.22453lC 03 DEGREFS RANKING 
TEKPGRATURES OF ELEMENTS ARE IN DEGREES F 


T4F=0. 4289740 02 
TOFii-. 1657980 02 

CRACOUTOF60X=0.7373850-02 


TIKE = 0.3000000 06 


riF*0. 2622590 C2 
T5FS0.27995LD 02 
T9F*-. 2614540 02 


T2F*0.281630D 02 
T6F=0. 2798240 C2 
T10FS-.26L453D 02 


T2F=C.280372C 02 
T7F=-. 7640230 01 
GIN =0.0 


TINNER £TRUCT0RE*0.224531C 03 DFCREES RANKINE 


T4F*C. 2799760 C2 
T8F«-. 2614470 02 

ORADOUTOF0OX=O. 6714030-02 


C11 



NQLDW040 SHUTTLE CANNISTERTEMP PROGRAM (CONTINUED) 


lb^PhRAlL«bb CJf- hLbMfNlb ARE IN UEOKE-tb h 


^^C * 0.3150DOD 06 


TlF=0. 1^61680 02 
T5rs0.1AA060l) 0? 
79PS-.3506B0D 02 


T2F = 0.1455‘=40 C2 
T6F«0*L43944D C2 
T10Fs-*35C679C C2 


T3F»C,1-!|^4^5D C2 
T7FS-. 1616^30 02 
CIN *C.O 


TUNER STRUCTURF,=0.224531C 03 DEGRESS RANKING 
TEPPCRATURES OF ELEKENTS JSRF IK DECREES F 


UF=C»l440e3£ C2 
T8FS-.35C674C 02 

0RA00UT0FB0X»0.6l3668D-02 


riPE a 0.3300000 06 

TlFsO, 2150170 01 T2F *0 . 2 106^ 60 Cl T3F*C. 2001110 01 

T5F«0.LSF583D 01 T6F *0. 1955 16D Cl T?Fs-,27?03AC 02 

T9F»-.^i340650 02 T 10 F=-.it34n63D 02 CIN =CtC 
TIKNFR STRUC1'URF*0.224531C 03 DFCREES RANKIN6 

IS^'PFRAILRES of EUFENTS are IK DECREES F 


T4F«0.19&7930 01 
ieFs-.43A059E 02 

ORADOUT0F8CX»O.5629O6D-O2 


TIME 

= 0.3450000 

06 

T1F=-. 

'jzs'tasD 01 

T?P = 

T5F=-, 

9462130 0! 

T6F = 

T9F=-. 

512126D C2 

TIOF 


-.9471950 01 
.512125C C2. 


T3FS-.542967C 01 
T7F=-.369465D 02 
CIK sC.C 


TIKKER STRUCTUR6a0.224531C 03 DEGREES RANKINS 
tC^'PERAUJRCS OF ELEMENTS ARF IN OFGRFFS 


T4F:s-.94602CD 01 
r8F=“. 5121220 02 

CRACCL10FPCX*0.5ieC720-02 


TIME 

= 0.360000D 

06 





T1F=-. 

U6302D 02 

T2FS-.195749D C2 

T2F = - 

•1S9644C 

c? 

T4F=-.199926C C2 

T5F»-. 

1S5944D 0? 

T6F=-.200035D C2 

T7F-- 

.453637C 

02 

T8F«-. 5853250 G? 

T9F=-. 

5e5330n 02 

T10r=-.5Pi328D 02 

CIN 

= 0,0 


ORADOUTOFOOX=0.'t 783020-02 


TIKNER 5TRUCTURG=0.2?AS3LC 03 DECREES PAKKINE 
TG^PERATURFS OF ELEf'CNTS ARE TK‘ D6GRCES F 


TUE s 0*3750000 06 

T1F=-.295787D 02 T2F =-.2962010 02 T 3 F=-. 297030D Ol 

T5F=-.297i070 02 T6Fs-.297391D 02 T7F^-.532167C 02 

T9F=-. 65^0900 02 T LO F=-.65A088C C2 CIN =0,0 
TlKNPR STRUCtURF=0.274S31C 03 OEGREFS RANKING 

t'efpfratures of elements are in CFGREFS F 
TIME = C.390C0CD C6 

TlF=-.3e6157D 02 T2F a-, 3B654 ID 02 T3F=-.387311D 02 

T5F=-.36756ft0 0? T6F 1R7646D 02 T1F=-,6C5591D 02 

T9F#-.71G781D 02 HO F»--7 18779D 02 CIN «C.O 
TIKKER STRUCTURFa0.22A531C 03 DECREES RANKING 

CALTICK...TlMe(NP7S5) IS LESS THAK MAX.FRCeiEM TIME 
SC riK,rQUT,TSRCr«C OSI are FIXCC at TFFIR SUR-NPTS5 VALUFS 

TEMPERAtURES OF ELEMENTS ARC IN CEGrEES F 


T4F=-.29729C0 C2 
TBFa-.65<iQ860 02 

ORACOUTOFftfiX=0.442e78D-02 


TAF=-. 3875530 02 
T8F=-. 7187770 C7 

CRAOOUTOFBOX=O.AlI20tn-02 


TIME « C.397POCD C6 


T1FS-.2264S1D C2 
T5F=-. 2109360 02 
TSF«0.576605D 03 


T2FS-.220A95D C2 
T6Fs-,2095’90 02 
T10F»0.576624D 03 


T2F=-.215590r 02 
T7F*C.372ft02D 03 
CIN »C.O 


TIKNFR STRUCTURFsO. 11093^0 04 DSCREFS RANKING 
TCMPEHAILRES (3F FLEMFTTS ARE IK CECREeS F 


T4F=-. 2112140 02 
T3F=0. 5765970 03 

nRAOOUTOFBOX*-.733840D-Ol 


TIMC « 0.4008000 06 

TlF=0, 7134460 0! T?F «0 .7798610 Cl T2F*C.912623C 01 

T5raO*9S70b7U 01 T6F=0 *9704970 01 T7F-C*3e56550 03 

T9F = 0.Se024CD C3 T10F = C. 5002*^80 C3 CIK *C.C 
TUNER STRUCTURf a0,UO934D 04 DFGREFS RANKtlJE 

TEMPERATURES LT CLC^'ENTS ARr TK OECRFFS F 


T4F*C.9644C90 01 
TRFsO* 5802321) 03 

CRAC0LT0FPCX=-.70C€46D-C1 


TIME 


0.403ROCC C6 


CT2 



= Li lil-=u.d/ist;u Li I2h = t. Oi 

T5F=0. 3884720 02 T5F*0 .3047550 C2 T7 F=C . 3S74C4C 03 

T9F*0. 5836700 03 TIO F=0 . 5036970 03 CIN *0.0 
TINNER STRUCTURE=0.110934C 04 OEGREES lUHKINE 

TENPERATURES OF ELEMENTS ARC IN CFGRESS F 


6IQLDW040 SHUTTLE CAMNISTER TEMP PROGR.AM {CONTINUED) 
I4I-*C.30021<)L, 02 
TBF»C.58357IG 03 

ORADOUTOFBOX*-. 65891 60-01 


TIRE = 0.405800D 06 

TlF=0. 6457710 02 T2P=0 .65 18250 02 T3F=C. 6639250 02 

T5F=0, 6675750 02 T6Fs0.6692C0D 02 T7F= C . 4C95 8CC 03 

T9F*0. 5869330 03 T 10 r = 0 . 506 95 ID 03 CIN =C.C 
TINNER STRUCTUBE=0.110934C 04 DEGREES RNNKINE 

lENPERATtRES OF ELENENTS ARE IN CSGREES F 


T4F=0. 6677340 02 
18F=C. 5869260 C3 
ORAOOUTOFBOX*-. 6385910-01 


TINE * 0.4098000 06 


T1F*0. 9136060 02 
T5F=0.934S030 O? 
T9F*0, 5900150 03 


T2F=0. 9193050 02 
T6F*0. 9359720 0? 
nOF*C.590023D 03 


T3F*C.93C937C 02 
T7F=C.4Z0710D 03 
CIN =C.C 


TINNER STRUCTVBE-O. 1109340 04 DECREES RANKINS 

tei'peratures of elements are in degress f 


'I4f*C. 9345720 02 
T8F*0. 5900080 03 

CR4CCLTCF0CX=-.6O5611D-C1 


TIME = 0.4128000 06 


T1F=0. 1169280 03 
T5F=0. 1189520 03 
T9FsO. 5529350 03 


T2F=0.117480D 03 
T6F=0. 1190630 03 
T10F=0. 5929530 03 


T3F=C.11BS83C 03 
T7F=C. 4313200 03 
CUN =0.0 


TINNER :TRUCTURE=0. 1109340 04 DEGREES PANKINE 
TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T4F=C.Ue53CD 03 
T8F=0. 5929280 03 

QRADOUTOFBQX*-. 5819210-01 


TIME = O.4150OOD 06 

T1F=0. 1413340 03 T2F=0. 1418610 03 T2F= C. 14 29 14D 03 

T5F=0. 1432660 03 T6F =0 . 1433720 03 T7F= 0. 44 1435C 03 

T9F=0.555T02D 03 T10F=C. 595720D C3 CIN =0.0 

TINNER STRUCTUHE=0. 1109340 04 OEGRFES RANKING 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T4F=C. 143245D C3 
T8F=C. 5956960 C3 

€RADOUTOFBOX=-. 5554650-01 


TIME 


C.41880CD 06 


T1F=0.164631D 03 T2F=0. 1651330 03 T 2F=C . 1661380 03 

T5F=0. 1664740 03 T6F =0 . 1665 76D 03 T7F= C .45 1077D 03 

T9F=O.5'0326D 03 T10F=0. 5983430 03 CIN =0.0 

TINNER STRUCTURE=0.110934C 04 DECREES PANKINE 

TEMPFRATURFS OF ELEMENTS ARE IN CFGREFS F 


T4P=C. 1664540 03 
T8F=C. 5983190 C3 

CRAOOUIOFDax=-.S3C191D-Cl 


TIME 


0.4218000 06 


T1F=0.186867D 03 
TSF=0.188626D 03 
T9F=0.6C08130 03 


T2F=0. 1873460 03 
T6F=0. 1887230 C3 
T10F=0. 6008310 03 


T3F=C. 1883050 03 
T7f=C. 4602710 03 
CIN =C. C 


TINNER STRUCTURE=0.110934C 04 DECREES RANKING 
temperatures OF ELEMENTS ARE IN DEGREES F 


T4F=C.1086C7D C3 
T8F=0.600808D 03 

ORADOL TUFBOX=-. 506C49D-01 


TIME = 0.424BOOD 06 


TlF=0.2C8O9CD 03 
T5F=0.2C97690 03 
T9F=0.6C3174 d 03 


T2F=0. 2085470 03 
T6F=0. 2098420 03 
T10r=0, 6031910 03 


T2F*C.2C9463D 03 
T7F=C.469036C 03 
CiN =0.0 


TINNFR STRUCTURE=0.110934C 04 DECREES RANKING 
TEMPERATURES OF ELEMENTS ARE IN EEGREES F 


T4F=C.2C9751C 03 
T8F=C.6C31680 03 

ORAOOUTOFnOX*-. 4829890-01 


TIME = 0.427800D 06 


T1F=0.22834SD 03 
T5F=O,229940D 03 
T9F=0.6C5413D 03 


T2F=0.22B782D 03 
T6F=CI230037D 02 
TIOF=0.605430C 03 


T3F=C.229656D 03 
T7F=C.477392C 03 
CIN =C.C 


TINNER STRUCTURE=0.110934E 04 DEGREES RANKIN? 
TEMPERATLRES OF ELEMENTS ARE IN DEGREES F 


T4F=0. 2299310 03 
T0FSO.6C54C8C 03 

CRAUDUT0FB0X=-.46C964D-01 


ss 

»ag 

§S 

Bp 
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NQLDW040 SHUTTLE CANNISTER TEMP PROGRAM (CONTINUED) 


riPE 


0,43US00U 06 


T1F=0.247677D 03 T2F=0.246C540 03 T2F=C. 24 83280 03 

T5F=0. 2492070 03 T6F=0 . 24929 ID 03 T7F = C. 4863600 03 

T9F=0.6C7539D 03 T 1QF=0 .607 S 5 60 03 CIN =C.C 

TIANER £TRUCTURE=0.110934C 04 DEGREES RONKINE 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T4F=C.24S13C0 03 
T8F=0. 6075330 03 

CRACCLTOFBCX*-. 4395310-01 


TIME = 0.4338000 06 

T1F=0. 2661260 C3 T2F=0. 2665240 C3 T3F=C . 267320 C 03 

T5F=0. 2675860 03 T6F«0. 2676670 03 T7F=C . 45 29570 03 

T9F=0.6C95570 03 T10F=0.609574C 03 CIN =0.0 

TINNER 5TRUCTU8E=0.110934C 04 DEGREES PANRINE 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T4F=0.26757CC C3 
TBF=C.6C55SZ0 03 

ORADOUTQFBQX=-. 4 198450-01 


TIME = 0.4368DOD 06 

T1F=0. 2837330 03 T2F=0.284 1 13D 03 T3F=C, 2048720 03 

T5F=0.2851Z6D 03 T6F=0. 2852030 03 T7F=C. 5002010 03 

T9F=0. 6114730 03 T10F=0 . 6 1 14900 03 CIN =0,0 

TINNER STRUCTURE=0.110934D 04 DEGREES RAnKINE 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T4F = C.28 5U1D C3 
T8F=C. 6114680 03 

OR ADOU TO F80X=-. 4006650-01 


TIME = 0.4398000 06 


T1F=0.3C05350 03 
T5F=0.3C18650 03 
T9F=0.613294D 03 


T2F=0. 3008980 03 
T6F=0. 3019380 03 
T10F=0.613310D 03 


T3F=C. 3016220 03 
T7F=C. 5071080 03 
CIN =0.0 


TINNER 'TRUCTURF=0.110934C 04 DEGREES RANKINE 
TEMPERATLRES of ELEMENTS ARE IK DEGREES F 


T4F=0. 3018500 03 
T8F=C. 6132890 C3 

ORADOUTOPBOX*-. 3823520-01 


TIME 


0.4423000 06 


T1F=0. 3165690 03 T2F=0. 3169150 03 T2F=C. 3176070 03 

T5F=0. 3178380 03 T6F=0 .3 17908 0 03 T7F= C. 51 3694 C 03 

T9F=0. 6150230 03 TIO F=0. 6 150390 03 CIN =0. C 
TINNER STRUCTURE=0.110934C 04 DEGREES RANKINE 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T4F=0. 3178240 03 
T8F=0.61S018D 03 

0RADOLT0FBaX=-.364867D-01 


TIME = 0.4458000 06 

T1F=0. 3318700 03 T2F=O.3322C0O 03 T2F= C. 33 286CO 03 

T5F=0. 3330800 03 T6F=0. 3331470 03 T7F=C. 5199750 03 

T9F=0. 6166660 03 T10F=0. 6166830 03 CIN =0.0 

TINNER 'TRUCTU8E=0.110934C 04 DEGREES RANKINE 

TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T4F=C.333067D C3 
T8F=C, 6166620 03 

QRA00UT0F80X=-. 3481740-01 


TIME = 0.448BOOD 06 


T1F=0. 3464700 03 
T5F=0. 3476250 03 
T9F=0. 6182280 03 


T2F=0.3467B50 03 
T6F=0. 3476890 03 
T10F=0. 6102440 03 


T3F=0. 3474150 03 
T7f=C.525964C 03 
CIN =C.C 


TINNER $TRUCTURE=0. 1109340 04 DEGREES RANKINE 
TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T4F=0. 3476130 03 
TBF=C. 6182240 03 

CRADDUTOFeOX*-. 3322370-01 


TIME = 0. 4518000 06 


TlF=0, 3604020 03 
7SF=0,3615040 03 
T9F=0.6157130 03 


T2F=0.3607C2D C3 
T6F=0. 3615650 03 
T10F=C.6197Z9D 03 


T3F=C.361303C 03 
T7F=C. 6316740 03 
CIN =0.0 


TINNER STRUCTURE=0. 1109340 04 DEGREES RANKINE 
TEMPERATURES OF ELEMENTS ARE IN DEGREES F 


T4F=C.361492D 03 
T8F=0,619709D 03 

CRACCUTOFEOX=-.3nC23D-Cl 


TIME 


0.4548000 06 


T1F=0.3T3695D 03 T2F=0. 3739820 03 T3F=C. 37 4555C 03 

T5F»0, 3747470 03 T6F=0.374BC50 03 T7F* C . 53 71 2CC 03 

T9F=0. 6211240 03 T10F=0. 6211400 03 CIN =0.0 

TINNER STRUCTURG = 0.U0934C 04 DEGREES RANKINE 

TEMPERATURES OF ELEMENTS ARE IN' DEGREES F 


T4F=C. 3747360 03 
7BF=0. 6211200 03 

QRADOUTOFB0X=-,3O25OOD-Ol 
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NQLDW040 SHUTTLE CANNISTER TEMP PROGRAM (CONTINUED) 


TtPE 


0.4S78000 06 


T1F=0, 3063790 03 Tzr=0.386653D 03 T3F=C .3872000 03 

T5F=0. 3073030 03 T6F =C .3B7430D 03 T7 F =0 . 542 3 13C 03 

19F=0. 6224670 C3 TIOF=C.622403C 03 CIN =0.0 
TIMNFR STRUCTURE=0. 1109340 04 DEGREES R4NMNE 

TEFPER4TURES OF FLEPENT5 ARE IN DEGREES F 


T4F=0.387372D 03 
T8F=C. 6224630 03 

CRrtOQUTOFBCX=-, 28B63B0-01 


TIRE = 0.460S0CD 06 

T1F=0.3S8482D 03 T2F=0.398743D 03 T2r=0, 3992650 03 

T5F=0. 3994400 03 T6F=C. 399493D 03 T7F= C . 5472660 03 

T9F=0.6237430 03 T10F=0, 6237590 03 CIN *0.0 

TIAKFR STRUCTURE=0, 1109340 04 DFCREES BANKINE 

TEPPERAILRFS OF ElEREMS ARE IN DECREES F 


T4F=0. 3994290 03 
T8F=C. 6237400 C3 

ORAOOUTOFBGX*-. 2754060-01 


TIRE = 0.463800D 06 


T1F*0.41C030D 03 
T5F=0. 4109430 03 
T9F=0. 6249580 03 


T2F=0. 4102790 03 
T6F=0. 4109940 03 
T10F=0. 6249730 03 


T3F=C. 4107770 03 
T7F=0. 5519880 03 
OIN *C.0 


TINNER STROCTURe=0. 1109340 04 OCCREFS RANK INE 
TFRPERATURES OF ELEMENTS ARF IN DEGREES F 


T4F=C.41C933D 03 
T8F=0.624954D 03 

CRADQL'TOFeCXs-. 2627760-01 


TIMF = 0.466BOOD 06 


T1F=0. 4210480 03 
T5F=0. 4219190 03 
T9F=0. 6261130 03 


T2F=0.4212e50 03 
T6F=0.421967D 03 
T10F=0. 6261280 03 


T3F=C.42176CC 03 
T7F=C. 5564920 03 
CIN =0.0 


TINNFR STRUCTURr-=0, 1109340 04 DEGREES RANKINE 
TEMPERATURES OF ELEMENTS ARE IN CECRFES T 


T4F=C, 4219100 C3 
TaF=C.6261C9D 03 

QRADOUTOFDOX=-.250722D-Ol 


TIME = 0.4698000 06 


riF*0.431560U 03 
T5F=0. 4323920 03 
T9F=0.627212D 03 


TZF=0. 4317870 03 
T6F=C. 4324370 03 
T10F=0. 6272270 03 


T3F=C. 4322400 03 
T7T-=C. 5607870 03 
CIN =C.C 


TINNER 'TROCTURE=0. 1109340 04 DEGREES RANKINE 
TEMPERAILRcS OF ELEMENTS ARE IN DEGREES F 


T4r=0.432383D 03 
18F=C.6272C8D C3 

CR41)OUTOFBGX*-.239217D-Ol 


TIME = 0.472800D 06 


T1F=0. 4415890 03 
T5F=0. 4423R30 03 
TSF = 0. 62P259D C3 


T2F=0.4418C6D 03 
T6F=0.442427D 03 
T10F=0.628273D 03 


T3F=C.44223er C3 
T7F=C. 5648830 03 
CIN =0.0 


TINNER STROCTURF=0. 1109340 04 DEGREES RANKINE 
TEMPERATURES OF FLEMENTS ARF IN DEGREES F 


T4F=G.442374C 03 
T8F=0.62P2540 C3 

CRAC0UT0FBQX=-.22£2370-Cl 


TIME = 0.4758000 06 


T1F=0. 4511500 03 
T5F=0.4= i9l60 03 
T9F=0. 6292530 03 


T2F=0. 4513650 03 
T6F=0.451957D C3 
T10F=0. 6292680 03 


T3F=C. 4517770 03 
T7F=C.5687B9C 03 
Ot« =0.0 


TINNFR 'TRUCTURE=0.110934C 04 DEGREES RANKINE 
TEMPERATURES OF ELFHENTS ARF IN CECREE5 F 

TIME = 0.478600C 06 

T1F=0.460?88D 03 T2F=0.460485D 03 T2F=C. 4608790 03 

T5F=0.46 lOlOD 03 T6F=0. 4610500 03 T 7 F= C . 5729 1 5C 03 

T9F«0.63C20QO 03 T10F=0.63D2 1 50 C3 CIN =0.0 

TINNER STRUCTURB=0. 1109340 04 OEGREFS RANKINE 

TEMPERATURES OF ELEMFNTS ARE IN CEGREES F 


T4F=C.4S19C7D C3 
T8F=0. 6292500 03 

0RA00UT0FBUX=-.217759D-01 


T4F=C.4610C2D C3 
T8F=C.63C197D 03 

CRACOUT OF BEX* -.20 77590-01 


TIME = O.ABieCCO 06 


T1F=O.46099BD 03 
T5F=0. 4696870 03 
I9F=0. 6311020 03 


T2F=0. 4691860 03 
T6F=0.4697?5D 03 
T10F=0.63L117C C3 


TINNER JTRUCTURE=0.110934C 04* DECREES PAAKINE 


T3F=C.469561C 03 
T7F=C. 5760680 03 
CIN =0.0 


T4F=0. 4696800 C3 
T8F = C. 6310991) 03 

ORADOUTOFBOXs-. 1982160-01 


O S 
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NQLDW040 SHUTTLE CANNISTER TEMP PROGRAM (CONTINUED) 


TEPPERAICRES OF CLEKENTS ARE IK CEGPFFS F 


TIFF = O.AaASOOC 06 


TIF=0.A77308D 03 
T5F=0.A7796S0 03 
T9F=0. 63 10600 03 
TINNER STRUCTURE=0, 


T?F=0.67T687D C3 
T6F=0.478001D 03 
T10F=C.631S75D 03 


T2f = C.'i778A5C 03 
T7F=C.S79A56D 03 

CIA =c.c 


U093'iC 06 DEGREES RANKINE 


TEMPERATURES OF ELEMENTS ARE (N DEGREES F 


T6F=C. 6779580 03 
T8F=0. 5319570 03 

CRACOUTOFECX — . 1891090-01 


TIMF s 0.6878000 06 


TlF=a,66S235D C3 
T5F=0.685863D 03 
T9F=0. 6327770 03 


T2F=0.6056C6D C3 
T6FS0.6D5897D C3 
T10F=0, 6327920 03 


T3F=C.68S76BC 03 
T7F=C.B82687C 03 
CIN =0.0 


TIANER STRUCTURE=0. 1109360 06 DEGREES PAAKIAE 
TEMPERATURES OF ELEMENTS ARC IN DECREES F 


T6F=C.68S8S6D C3 
T8F=C. 6327750 03 

0RADaUTOF»OX=-.iaO6l9D-Ol 


TIME 


0.6908000 06 


T1F=0.6927990 03 
158=0.6933970 03 
T9F=0.633S550 03 


T2r«0. 6929620 03 
T6F=C. 6936300 C3 
T10F=0.633570C 03 


T3F=C. 6932880 03 
TTF=C.585769C 03 
C IN =0.0 


TIARER STRUCrUSF=0. 1109360 06 DFGREES RANKINE 
TEMPERATLRES OF ELEMENTS ARE lA DEGREES F 


T6F=0.693390D 03 
T8F=C. 6335530 C3 

CR6DaUT0FBCK=-. 1721270-01 


TIME = 0.693800D 06 


Ur=0.5C0016D 03 
T5F=0. 5009850 03 
T9F=0. 6262960 C3 


T2F=0. 5001690 C3 
T6F=0.5Q0616D 03 
T10F=0. 6363110 03 


T3F=C,5CC681C 03 
T7F=a.58S708D 03 
CIA =C.C 


TINNER STRUCTURE=0. 1109360 06 DEGREES RANKINE 


T6F=C.50C579D C3 
788=0.6362960 03 

CfiACDLTCFDCX=-. 1662150-01 
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APPENDIX D 


This appendix suggests means of approximating certain physical and geometric factors 
for use m NQLDW040. 

(I) If the upper surface of the payload box (area AE) has an absorptivity 
(e g., for solar radiation or Earth’s albedo) which differs from the input 
emissivity (EP2), then this value is entered as “ALPHA” Note that when 
surface “E” does not see the sun, ALPHA is automatically treated as 
equal to the emissivity of face “E”. 

q:e = EP2 (D-1) 

(II) It will sometimes be necessary to extend the applicability of NQLD.W040 
to include temperature estimates of a cylindrical box with spherical 
sector ends, a useful pressurized capsule configuration. For such a case, 
it IS necessary to approximate the effective areas of the four sides and 
two ends of the input (rectangular) thermal model such that they are 
equal to the actual surface areas of the cylinder and the two domes 

The method is depicted in Figures 3-5 (A, B & C) 

Note that the cylinder is replaced by four rectangular sides having dimensions and 
X, where 2 is the width and x is the same as the true cylinder length In terms of the cylinder 
radius, Rgyi : 

2= 1.5708 Rcyi (D-2) 


D1 



Each spherical sector dome is replaced by a square plate having length (and width) equal 
to 2p), where 

■ -- =-R-D-[27r0sin|t’'^ (D-3) 

This means, m thfe terms defined in Figure 3-5, that the areas of surfaces, A, B, C, D, E 
and F as required for input into NQLDW040 are obtained as follows 

AA = AC = AE = AF = fix . (D-4) 

AB = AD = (fio)2 (D-5) 



Similarly, when the top plate is insulated externally 

INTERNAL HEAT 

QDOTT = (Btu/ft^sec) (D-8) 

SA 


but when the top plate is NOT externally insulated 

INTERNAL HEAT 

QDOTT = (Btu/ft2sec) (D-9) 

^TOP 
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(IV) An Approximation to Input TSRCE Values 

At the present time, TSRCE is the input parameter that provides the function 
of an empirical constant for NQLDW040. Until experimental data are available 
to establish a better set of values, TSRCE is derived theoretically in the follow- 
ing manner. 

A parametric study of the mean temperature of the payload 

% 

box reduced to a flat plate by setting all side areas equal to 
zero IS run Only the top and bottom areas are non-zero 
The QIN IS set to zero and the exposed surface (mean) 
emissivity (IR) and absorptivity (solar band) are assumed. 

The TSRCE (input value is then given a succession of values 
and the program is run until the equilibrium is reached for 
each TSRCE value. When a simple calculation of flat plate 
equilibrium temperature representing the equivalent orbiter 
bay conditions (bay and plate “See” Sun or Earth) is made, 
the resulting value can be compared with the above runs to 
match the equihbrium temperatures of the plate, thus 
establishing the approximate TSRCE value for a given 
orbiter condition as a function of the surface emissivity 
and absorptivity. 

These values of TSRCE represent the theoretical approximations and may well be 
altered by expenmental evidence when the necessary data become available Moreover, 
TSRCE will probably be the most convenient parameter to use as an empirical control 
variable. 
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Figure D-1 is included solely to demonstrate that the parallel plate emissivity, EP23, 
IS relatively independent of the FIN value. If FIN for the parametric study to obtain 
TSRCE values is assumed at 075, the largest variation' in 'EP2 3 would be abdut"±10%. 


Figure D-2 shows the variation of equilibrium flat plate temperature (upper surface 
“sees” deep space and Sun or Earth and under surface “sees” the orbiter bay liner and 
other payload items) with surface infrared emissivity for several solar band absorptivity 
values. Notice that when the orbiter “sees” only Earth, the infrared emissivity of the 
plate surface is assumed equal to the infrared absorptivity. For the Sun-viewing case, 
the plate equihbnum temperature is calculated by the equation: 

X 103 (°R) (D-10) 


TpLATE.equil " 


0.256504«s + 0 144924EP2 
EP2(EP2 + 2) 


This equation is based upon a solar constant (for near-earth obnt) of 0 12325Btu/ft^sec 
and a bay liner ' mean temperature of 617°R. For the Earth-viewing case, the plate equi- 
librium temperature is calculated by the equation' 


TpLATE,equL = (0.06077 EP2 -t 0 116026)''^ x lO^ (°R) (D-11) 

which IS based upon q Earth radiation = 0.02 14Btu/ft^ sec and the q Earth albedo = 
0.0370Btu/ft2sec. It is arbitrarily assumed that the absorptivity and emissivity of the 
plate surface are equal, although the albedo source temperature is about 6000°C so it 
would be more proper to assume the solar band absorptivity for the Earth’s albedo and 
the infrared absorptivity for Earth radiated energy. The Earth’s surface emissivity is es- 
timated at 0.5 and that of the bay liner is 0.8. The parallel plate effective emissivity 
(EP23)'is 
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EP23 = 


1 . 


(D-12) 


1 . 1 . 

+ 1 . 

EP2 Four + (FIN)(EP3) 


which, with FIN = FOXJT = 0.5 (assumed) reduces to 

1 EP2 

EP23 = = (D-13) 

1. EP2 + 1 

+ 1 

EP2 

Figure D-3 results from running the program (NQLDW040) with arbitrary variation 
of the TSRCE for solar band absorptivity values of 0.1, 0.3, 0 5, 0.7 and 0.9. The same 
variation is made in the surface emissivity value, EP2, though only the EP2 = . 1 (Figure 
D-3) results are reporduced here. The program runs the flat plate case by merely setting 
the four side wall areas equal to zero such that all heat transfer is from the top and bottom 
surfaces. Entering the Figure D-3 type plots with the appropriate equilibrium temperature 
from Figure D-2, results in the determination of what TSRCE (input to the program) will 
yield the correct or calculated flat plate equilibrium temperature. All NQLDW040 runs, 
of course, are continued until the plate temperature becomes constant. 

Finally, these data are presented in the desired form, the NQLDW040 input value of 
TSRCE which corresponds to the correct calculated plate temperature as a function of 
solar band absorptivity for several infrared emissivity values of the plate (EP2) This 
figure (D-4) provides the user with the TSRCE value to input for the particular tXj, EP2 
condition of interest when the bay “sees” the sun. Figure D-5 presents the same data as 
Figure D-4 except the bay is looking at the Earth instead of the Sun The method for 
deriving Figure D-5 is the same as that used to develop Figure D-4. Note that when the 
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bay “sees” only deep space, TSRCE will always be 0“R. Of course, when experimental 
or other data become available, these TSRCE input values will probably be modified to 
allow the program theory to accommodate the actual measured data 


D-6 



